Fórum Criar um Arquivo Texto #217540
01/03/2004
0
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
Curtir tópico
+ 0Posts
01/03/2004
Paulo_amorim
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
01/03/2004
Paulo_amorim
Perdoa-me...
O primeiro ´end;´, logo abaixo das variáveis, eh um ´begin´
Gostei + 0
01/03/2004
Henry
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
01/03/2004
Henry
memo1.lines.savetofile(´Arquivo.txt´);
Gostei + 0
01/03/2004
Paulo_amorim
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
02/03/2004
Henry
Gostei + 0
02/03/2004
Beppe
Não precisa ser um memo, pode ser uma TStringList.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)