abrir txt no memo?
Como faço para abrir um arquivo.txt em um memo?
Guigosnet
Curtidas 0
Melhor post
Wdrocha
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
GOSTEI 1
Mais Respostas
Marco Salles
16/07/2008
memo1.Lines.LoadFromFile(AquiColoque oCaminhoNome.txt);
GOSTEI 1
Guigosnet
16/07/2008
BLZ. OBRIGADOS
GOSTEI 0