Fórum Arquivo txt #193018
05/11/2003
0
Ola amigos tudo bem??
como posso fazer para que eu delete de um arquivo texto apenas 1 linhas, e salvar o arquivo para uma possivel edição mais tarde?
Obrigado!
como posso fazer para que eu delete de um arquivo texto apenas 1 linhas, e salvar o arquivo para uma possivel edição mais tarde?
Obrigado!
Uiliangurjon
Curtir tópico
+ 0
Responder
Posts
05/11/2003
Sam
Amigão tente assim, eu não testei, veja se funciona.
crie uma variavel
var
F : textfile;
Carregue o conteudo do Arquivo nesta variavel
AssignFile(F,´C:\arquivo.txt´);
Jogue o conteudo o F no TMEMO e trate o conteudo no MEMO
Depois jogue o Conteudo Alterado do TMEMO no F
rewrite(f)
i := 0;
while i <= memo1.lines.count then
begin
Writeln(F,Memo1.Lines[i].text);
end;
CloseFile(F);
Abraços !!!
crie uma variavel
var
F : textfile;
Carregue o conteudo do Arquivo nesta variavel
AssignFile(F,´C:\arquivo.txt´);
Jogue o conteudo o F no TMEMO e trate o conteudo no MEMO
Depois jogue o Conteudo Alterado do TMEMO no F
rewrite(f)
i := 0;
while i <= memo1.lines.count then
begin
Writeln(F,Memo1.Lines[i].text);
end;
CloseFile(F);
Abraços !!!
Responder
Gostei + 0
05/11/2003
Carlosk
vc pode usar o memo.loadfromfile(nomedoarquivo) para carregar o arquivo. edite ele como vc achar melhor e salva com o memo.savetofile(nomedoarquivo).
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)