Gravado no txt

[DanielTM 0]

Fala pessoa estou desenvolvendo um sistema, que gera um arquivo texto gravando algumas informaçoes, beleza está funcioando ok, uso o comando Write para gravar nessa sintaxe:

Exemplo:

 

Write (arqS, query2.FieldByName('emissao').asstring);

 

 

beleza ele pega o dado na tabela e grava.

 

só que preciso agora grava da linha 01 a 20 espaços em brancos no txt, alguem sabe como faço isso?

 

valeww http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Rodrigo Miss 1]

Write (arqS);

[DanielTM 0]

Write (arqS);

kra mas como faço para gravar 20 caracteres em brancos no txt?

[marcio.theis 3]

Para isto você poderia criar uma função ou ver se o delphi mesmo já não tem uma que gere estes 20 caracteres em branco, um exemplo de função seria:

 

 

function Completa(totalCaracter: integer; tipoCaracter: char): string;var	x: integer;	ret: string;beginret:='';for x:=1 to totalCaracter do	ret:=ret + tipoCaracter;Completa:=ret;end;

 

No caso basta chamar e passar o parâmetro da quantidade de caracters e tipo de caracter que a função lhe devolve pronto, exemplo:

 

Edit1.Text:=Completa(20,' ');

Vai preencher o edit1 com 20 espaços...

[Rodrigo Miss 1]

hum ...

Se for delphi 7, o proprio delphi já nos disponibiliza a função StringOfChar:

 

StringOfChar(#27,20);

[DanielTM 0]

valew pessoal deu certinho, obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[DanielTM 0]

tentei gravar a função no txt mas deu um erro Write (arqS, (Edit1.Text:=Completa(20,' ')));erro: ilegal type in Write/Writeln statement

[marcio.theis 3]

Mas isto realmente não vai funcionar, o que pode fazer é o seguinte:

 

Edit1.Text:=Completa(20,' ');Write (arqS,Edit1.Text);

[DanielTM 0]

Mas isto realmente não vai funcionar, o que pode fazer é o seguinte:

Edit1.Text:=Completa(20,' ');Write (arqS,Edit1.Text);

heheeheh realmente que vacilo.... http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

[marcio.theis 3]

tranquilo... :D