Como gravar num Aquivo Text ??
14/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
14/02/2003
Navoid
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é
Responder
14/02/2003
Rosset
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+
Responder
Clique aqui para fazer login e interagir na Comunidade :)
