Ler e gravar em arquivo txt
Caros amigos , sou iniciante , ja sei como ler um arquivo txt e colocar em
string as partes do arquivo que desejo, mas nao sei criar outro arquivo txt
e gravar estes dados .
Se alguem tiver uma rotina basica de criar o arquivo e gravar nele ficaria muito grato.
um abraço
string as partes do arquivo que desejo, mas nao sei criar outro arquivo txt
e gravar estes dados .
Se alguem tiver uma rotina basica de criar o arquivo e gravar nele ficaria muito grato.
um abraço
Fabivechi
Curtidas 0
Respostas
Carnette
11/07/2003
Criando um arquivo de texto
procedure AddLog;
var
log: textfile;
begin
try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;
end;
procedure AddLog;
var
log: textfile;
begin
try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;
end;
GOSTEI 0
Henry
11/07/2003
Coloque o componente savedialog1 e um memo, e um botao.
No memo vc coloca o conteudo do arquivo text
No botao vc coloca o seguinte:
If savedialog1.execute then
memo1.lines.savetoFile(savedialog1.filename+ ´.txt´);
Assim vc vai cria um arquivo txt, junto com o conteudo dele. Se vc quise cria o arquivo em formato do word, vc pode faze assim:
If savedialog1.execute then
memo1.lines.savetofile(savedialog1.filename+´.doc´);
Espero q seja isso q vc esteja procurando, um abraço, Henry.
No memo vc coloca o conteudo do arquivo text
No botao vc coloca o seguinte:
If savedialog1.execute then
memo1.lines.savetoFile(savedialog1.filename+ ´.txt´);
Assim vc vai cria um arquivo txt, junto com o conteudo dele. Se vc quise cria o arquivo em formato do word, vc pode faze assim:
If savedialog1.execute then
memo1.lines.savetofile(savedialog1.filename+´.doc´);
Espero q seja isso q vc esteja procurando, um abraço, Henry.
GOSTEI 0