GERAR ARQUIVO TXT - UURGENTEEEEE!!!!!
05/02/2003
0
Preciso gerar arquivo txt, qual a melhor maneira rápida de fazer isto?
Anonymous
Curtir tópico
+ 0
Responder
Posts
05/02/2003
Dor_poa
Olha, vc. pode colocar um MEmo na tua aplicação e adicionar o conteudo nele e depois salvar
Ez.:
memo1.lines.add(´Texto´);
memo1.lines.SaveTofile(´c:\asas´);
Ez.:
memo1.lines.add(´Texto´);
memo1.lines.SaveTofile(´c:\asas´);
Responder
05/02/2003
Os1000r
Procure no Help do Delphi pelo comando AssignFile
O exemplo abaixo mostra como abrir 2 arquivos e copiar de um para outro...
uses Dialogs;
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, OpenDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end.
O exemplo abaixo mostra como abrir 2 arquivos e copiar de um para outro...
uses Dialogs;
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, OpenDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end.
Responder
Clique aqui para fazer login e interagir na Comunidade :)