Criar um Arquivo Texto

Delphi

01/03/2004

Boa tarde,

Estou precisando criar uma rotina que ler uma tabela e cria um arquivo texto com uma listagem de um campo da tabela que eu ler.

Por exemplo:
44,00
24,00
34,00
64,00
74,00
44,00

Uma listagem desse tipo so que num arquivo texto..


Vi

Vi

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

01/03/2004

Olá
Tabela com 1 coluna, tente:

var Txt: TextFile;
s: String;
end;

AssingFile(Txt, ´c:\file.txt´); {coloque o nome de seu arquivo}
Rewrite(Txt); {limpa o arquivo}
s := ´´;
with TDataSet do
begin
  Open; {TDataSet eh sua Tabela  ou sua Query}
  First;
  while not EOF do
  begin
    s := s + FieldByName(´campo´).AsString + Chr(13);
    Next;
  end;
end;
Writeln(Txt,s); { escreve no arquivo }
end;


Até+


GOSTEI 0
Paulo_amorim

Paulo_amorim

01/03/2004

Olá

Perdoa-me...
O primeiro ´end;´, logo abaixo das variáveis, eh um ´begin´


GOSTEI 0
Henry

Henry

01/03/2004

Grande Paulão e nosso truco??

Brother eu faço diferente....

Table1.first;
for I:= 0 to Table1.recordCount-1 do
begin
memo1.lines.add(Table1campo.value);
Table1.next;


GOSTEI 0
Henry

Henry

01/03/2004

esqueci do resto, dai quando acaba o loop vc da o seguinte codigo

memo1.lines.savetofile(´Arquivo.txt´);


GOSTEI 0
Paulo_amorim

Paulo_amorim

01/03/2004

Grande Paulão e nosso truco?? Brother eu faço diferente.... Table1.first; for I:= 0 to Table1.recordCount-1 do begin memo1.lines.add(Table1campo.value); Table1.next; end; Memo1.Lines.SaveToFile(´File.txt´);


Olá

Boa essa!! Não sabia que o Memo salvava sozinho...
O problema eh que nao tem como vc fazer sem um TMemo ne...

Até+


GOSTEI 0
Henry

Henry

01/03/2004

é unico ´problema´, se bem que se declara uma variavelzinha naum tem grilo né?


GOSTEI 0
Beppe

Beppe

01/03/2004

Boa essa!! Não sabia que o Memo salvava sozinho... O problema eh que nao tem como vc fazer sem um TMemo ne... Até+


Não precisa ser um memo, pode ser uma TStringList.


GOSTEI 0
POSTAR