Como gravar num Aquivo Text ??
Oi Amigos
Para ler um aqr txt eu faço assim :
Var Arq:textfile;
S:String;
begin
AssignFile(Arq,´Rizia.txt´);
Reset(Arq);
Try
While not Eof(Arq) Do
Begin
Readln(Arq,s);
Memo1.Lines.Add(S);
End;
Finally
Closefile(Arq);
End;
[b:423aaf72f2]E para gravar como eu faço ?[/b:423aaf72f2]
Para ler um aqr txt eu faço assim :
Var Arq:textfile;
S:String;
begin
AssignFile(Arq,´Rizia.txt´);
Reset(Arq);
Try
While not Eof(Arq) Do
Begin
Readln(Arq,s);
Memo1.Lines.Add(S);
End;
Finally
Closefile(Arq);
End;
[b:423aaf72f2]E para gravar como eu faço ?[/b:423aaf72f2]
Anonymous
Curtidas 0
Respostas
Navoid
14/02/2003
pra gravar faiz assim
****
Var Arq:textfile;
S:String;
begin
AssignFile(Arq,´Rizia.txt´);
Rewrite(Arq);
Try
writeln(Arq,s);
Finally
Closefile(Arq);
End;
****
detalhe assim ele sobrescreve o arquivo existente
até
****
Var Arq:textfile;
S:String;
begin
AssignFile(Arq,´Rizia.txt´);
Rewrite(Arq);
Try
writeln(Arq,s);
Finally
Closefile(Arq);
End;
****
detalhe assim ele sobrescreve o arquivo existente
até
GOSTEI 0
Rosset
14/02/2003
amigo.... eu desenvolvi um exemplo mt bom de como trabalhar com arquivos texto... sem precisar de banco de dados.. me contate pelo email que eu te envio... t+
GOSTEI 0