arquivo de texto
essa procedure em baixo cria um arquico em c:/
mas eu nao sei como abrir o arquivo e nem edita-lo
como eu posso fazer.............
=======
procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try
Arquivo.Add(Edit1.Text);
Arquivo.Add(Edit2.Text);
Arquivo.SaveToFile(´C:\ARQUIVO.TXT´);
finally
Arquivo.Free;
end;
end;
========
mas eu nao sei como abrir o arquivo e nem edita-lo
como eu posso fazer.............
=======
procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try
Arquivo.Add(Edit1.Text);
Arquivo.Add(Edit2.Text);
Arquivo.SaveToFile(´C:\ARQUIVO.TXT´);
finally
Arquivo.Free;
end;
end;
========
Joni
Curtidas 0
Respostas
Henrique
19/06/2003
Para abrir o arquivo:
arquivo.loadfromfile(´c:\arquivo´);
Para ler as linhas
edit1.text := arquivo.strings[numero da linha];
arquivo.loadfromfile(´c:\arquivo´);
Para ler as linhas
edit1.text := arquivo.strings[numero da linha];
GOSTEI 0
Joni
19/06/2003
alguem sabe mais comandos?
GOSTEI 0
Joni
19/06/2003
alguem sabe mais comandos?
GOSTEI 0