delphi TOpenDialog

 

 

TOpenDialog

 

 

procedure TForm1.Button1Click(Sender: TObject);
begin
   with TOpenDialog.Create( nil) do
   begin
     Filter := 'Text files (*.txt)|*.txt)|All Files(*.*)|*.*';
     if Execute then
       Memo1.Lines.LoadFromFile(Filename);
   end;
end;

来自为知笔记(Wiz)