Uma outra alternativa, nativa a partir do Delphi 2009 ou superior, é a função ByteLength
da unit SysUtils
.
Veja um exemplo (retirado da documentação):
var
LS1: WideString;
begin
LS1 := 'Hello World!';
Writeln('UnicodeString: ''', LS1, ''' contains ', Length(LS1), ' characters in ', ByteLength(LS1), ' bytes.');
Readln;
end.
A saída será:
Como bem mencionado pelo @EMBarbosamencionado pelo @EMBarbosa a função ByteLength
não está disponível para versões inferiores ao Delphi 2009, olhando o código fonte da função ByteLength
é possível ver que é essencialmente o mesmo código postado na resposta do EMBarbosana resposta do EMBarbosa.
Código:
function ByteLength(const S: string): Integer;
begin
Result := Length(S) * SizeOf(Char);
end;