Skip to main content
1 de 2
EMBarbosa
  • 708
  • 7
  • 18

Se você está utilizando o Delphi 7 (conforme a tag), basta medir utilizando o método Length e ele vai lhe dar o tamanho em Bytes.

Mas isso logo pode lhe causar problemas caso atualize seu Delphi para uma versão que utiliza Unicode. Um meio que estaria a prova de atualizações é utilizar Length(S) * SizeOf(Char) que também lhe dará o valor em bytes. Exemplo de código abaixo:

function TamanhoEmBytes(Const strAMedir: String): integer;
begin
  Result := Length(S) * SizeOf(Char);
end;

Mais sobre o assunto:

http://edn.embarcadero.com/article/38693

https://stackoverflow.com/questions/16529992/delphi-unicode-string-length-in-bytes

EMBarbosa
  • 708
  • 7
  • 18