abrir txt no memo?

16/07/2008

6

Como faço para abrir um arquivo.txt em um memo?


Responder

Posts

16/07/2008

Marco Salles

memo1.Lines.LoadFromFile(AquiColoque oCaminhoNome.txt);


Responder

16/07/2008

Wdrocha

Só complementando a ajuda do colega....

Se vc deseja selecionar o arquivo Txt antes de abrir...

Use o OpenDialog que está na aba Dialogs...

Exemplo de como vc carregar o arquivo e abrir o conteúdo do mesmo em eum Memo....


Procedure TFrmTeste.BtAbrirClick(Sender: TObject);

Var Arquivo : TStringList;

Begin

If (OpenDialog1.Execute) And (OpenDialog1.FileName <> ´´) Then

Begin

Arquivo := TStringList.Create(); // Instancia a variavel do tipo TStringList

Arquivo.LoadFromFile(OpenDialog1.FileName); //Carrega o arquivo selecionado

Memo1.Clear;

Memo1.Text := Arquivo.Text; // Recebe o texto do arquivo selecionado

Arquivo.Free; //Libera a variavel de memoria

End;

End;



Espero ter ajudado



Responder

16/07/2008

Guigosnet

BLZ. OBRIGADOS


Responder