Fórum arquivo de texto #165624

19/06/2003

0

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;
========


Joni

Joni

Responder

Posts

19/06/2003

Henrique

Para abrir o arquivo:
arquivo.loadfromfile(´c:\arquivo´);

Para ler as linhas
edit1.text := arquivo.strings[numero da linha];


Responder

Gostei + 0

19/06/2003

Joni

alguem sabe mais comandos?


Responder

Gostei + 0

19/06/2003

Joni

alguem sabe mais comandos?


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar