Como gerar arquivo txt determinando a posição(coluna)?

Delphi

20/04/2006

Como gerar arquivo txt determinando a posição(coluna) dos dados no arquivo TXT?


Exvasp

Exvasp

Curtidas 0

Respostas

Edilcimar

Edilcimar

20/04/2006

colocando espaços em branco, ou usar tabulação


GOSTEI 0
Seccomiro

Seccomiro

20/04/2006

use a seguinte função:

function TForm1.AjustaStr(str: String; tam: Integer): String;
begin
   while Length ( str ) < tam do
      str := str + ´ ´;
      if Length ( str ) > tam then
      str := Copy ( str, 1, tam );
      Result := str;
end;


onde [color=red:0a5e1ba148]str[/color:0a5e1ba148] é a string a ser gravada e [color=red:0a5e1ba148]tam[/color:0a5e1ba148] é o tamanho que tal string assumirá, ou seja:
Passando os seguintes valores:
AjustaStr(´Teste´; 15);

o valor de retorno seria:
´Teste          ´

ela completa com espaços!

espero ter ajudado!
:wink: :wink:
[]´ssss


GOSTEI 0
POSTAR