Skip to main content
3 de 5
added 548 characters in body
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Solução alternativa

O RTL(Run-Time Library) já têm uma função que faça isso por você.

A função ByteLength da unit SysUtils.

function ByteLength(const S: string): Integer;

Exemplo(retirado dos docs da Embarcadero):

 var
   LS1: WideString;

 begin
 LS1 := 'Hello World!';
 Writeln('UnicodeString: ''', LS1, ''' contains ', Length(LS1), ' characters in ', ByteLength(LS1), ' bytes.');
 Readln;
 end.

A saída será: inserir a descrição da imagem aqui

Atualização

Como lembrado pelo @EMBarbosa a função ByteLength de SysUtils está disponível apenas para o Delphi 2009 ou superior.

Ao olhar o funcionamento dessa função podemos olhar como ela funciona, e como já mencionado em outras respostas, o código abaixo parece ser o padrão a ser utilizado em versões antigas do Delphi.

function ByteLength(const S: string): Integer;
begin
Result := Length(S) * SizeOf(Char);
end;

inserir a descrição da imagem aqui

stderr
  • 30,9mil
  • 5
  • 49
  • 76