Difference between revisions of "TOpenDialog/zh CN"
From Free Pascal wiki
Jump to navigationJump to searchTyphonFinger (talk | contribs) (Created page with "{{TOpenDialog}} '''TOpenDialog''' Image:topendialog.png 就是打开文件的弹窗,在 Dialogs tab 的 Component Palette. == 参考资料 == * doc:lcl/dialo...") |
TyphonFinger (talk | contribs) |
||
Line 2: | Line 2: | ||
'''TOpenDialog''' [[Image:topendialog.png]] 就是打开文件的弹窗,在 [[Dialogs tab]] 的 [[Component Palette]]. | '''TOpenDialog''' [[Image:topendialog.png]] 就是打开文件的弹窗,在 [[Dialogs tab]] 的 [[Component Palette]]. | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
+ | procedure TForm1.Button1Click(Sender: TObject); | ||
+ | var | ||
+ | s:String; | ||
+ | begin | ||
+ | try | ||
+ | OpenDialog1.Execute; | ||
+ | s := OpenDialog1.FileName; | ||
+ | Form1.Caption := s; | ||
+ | Memo1.Lines.LoadFromFile(s); | ||
+ | except | ||
+ | on E: Exception do | ||
+ | //ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message ); | ||
+ | ShowMessage('忘记选择文件或者选择的文件不存在'); | ||
+ | end; | ||
+ | end; | ||
+ | </syntaxhighlight> | ||
+ | |||
== 参考资料 == | == 参考资料 == |
Revision as of 02:32, 1 May 2020
│
English (en) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TOpenDialog 就是打开文件的弹窗,在 Dialogs tab 的 Component Palette.
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
try
OpenDialog1.Execute;
s := OpenDialog1.FileName;
Form1.Caption := s;
Memo1.Lines.LoadFromFile(s);
except
on E: Exception do
//ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
ShowMessage('忘记选择文件或者选择的文件不存在');
end;
end;
参考资料