Como gravar num Aquivo Text ??

Question

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]

Navoid · Answer

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 existenteat�...

Rosset · Answer

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+...