abrir txt no memo?
16/07/2008
0
Como faço para abrir um arquivo.txt em um memo?
Guigosnet
Curtir tópico
+ 0
Responder
Post mais votado
16/07/2008
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
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
Wdrocha
Responder