Arquivo txt
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
Curtidas 0
Respostas
Sam
05/11/2003
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 !!!
GOSTEI 0
Carlosk
05/11/2003
vc pode usar o memo.loadfromfile(nomedoarquivo) para carregar o arquivo. edite ele como vc achar melhor e salva com o memo.savetofile(nomedoarquivo).
GOSTEI 0