Skip to main content
replaced http://pt.stackoverflow.com/ with https://pt.stackoverflow.com/
Fonte Link

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á: inserir a descrição da imagem aqui


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.

inserir a descrição da imagem aqui

Código:

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

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á: inserir a descrição da imagem aqui


Como bem mencionado 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 EMBarbosa.

inserir a descrição da imagem aqui

Código:

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

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á: inserir a descrição da imagem aqui


Como bem mencionado 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 EMBarbosa.

inserir a descrição da imagem aqui

Código:

function ByteLength(const S: string): Integer;
begin
Result := Length(S) * SizeOf(Char);
end;
removeu 92 caracteres do conteúdo
Fonte Link
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ê.

AUma outra alternativa, nativa a partir do Delphi 2009 ou superior, é a função ByteLength da unit SysUtils.

function ByteLength(const S: string): Integer;

ExemploVeja um exemplo (retirado dos docs da Embarcaderoda 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á: inserir a descrição da imagem aqui

Atualização

 

Como lembrado pelo @EMBarbosabem mencionado pelo @EMBarbosa a função ByteLength de SysUtilsnão 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 respostasversões inferiores ao Delphi 2009, olhando o código abaixo parece serfonte da função ByteLength é possível ver que é essencialmente o padrão a ser utilizado em versões antigas domesmo código postado Delphina resposta do EMBarbosa.

inserir a descrição da imagem aqui

Código:

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

inserir a descrição da imagem aqui

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

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á: inserir a descrição da imagem aqui

 

Como bem mencionado 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 EMBarbosa.

inserir a descrição da imagem aqui

Código:

function ByteLength(const S: string): Integer;
begin
Result := Length(S) * SizeOf(Char);
end;
added 548 characters in body
Fonte Link
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

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

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

added 376 characters in body
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76
Carregando
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76
Carregando