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)