Skip to main content
Adicionado a resposta a pergunta 2
Fonte Link
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.

  1. 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

  1. As informações como data de acesso e dada de criação do arquivo, bem como permissões são armazenadas de acordo com o sistema de arquivos da partição onde o arquivo foi armazenado. Assim dependerá de onde o arquivo for armazenado. No entanto, na maioria dos casos (todos?), esses dados são armazenados numa tabela separada do sistema de arquivos não afetando em nada o tamanho do arquivo.

Por exemplo: No sistema NTFS que é padrão do Windows XP até Windows 8, é armazenado na "Master File Table";

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

  1. 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

  1. As informações como data de acesso e dada de criação do arquivo, bem como permissões são armazenadas de acordo com o sistema de arquivos da partição onde o arquivo foi armazenado. Assim dependerá de onde o arquivo for armazenado. No entanto, na maioria dos casos (todos?), esses dados são armazenados numa tabela separada do sistema de arquivos não afetando em nada o tamanho do arquivo.

Por exemplo: No sistema NTFS que é padrão do Windows XP até Windows 8, é armazenado na "Master File Table";

Fonte Link
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