Artigos Delphi Quick Tips : OpenTextFileDialog do Delphi



Olá galera, nesta Quick Tips irei mostrar um componente no Delphi chamado OpenTextFileDialog(Palheta Dialogs), o mesmo funciona como se fosse um OpenDialog, porém para se trabalhar com texto, Encoding, com alguns formatos pré-definidos

 

Vamos ao exemplo :

Adicione um OpenTextFileDialog e um Memo



 

ofExNoPlacesBar = False (Observe que temos a barra lateral do Dialog)




ofExNoPlacesBar = True (Observe que não temos a barra lateral do Dialog)



 

Configure o componente como abaixo



 

 

Form : Localize o evento onCreate e implemente o código abaixo

 

  1. procedure TFrmPrincipal.FormCreate(Sender: TObject);
  2. begin
  3.   if OpenTextFileDialog1.Execute then
  4.      Memo1.Lines.LoadFromFile( OpenTextFileDialog1.FileName )
  5. end;


Ao executarmos o projeto veremos que será aberto a janela do OpenTextFileDialog, e ao carregarmos alguma txt, doc, ini, o mesmo irá ser exibido no Memo.

 

Fico por aqui e na próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br