diff options
Diffstat (limited to 'examples/apps/nanoedit/testfiles/file2.pas')
-rw-r--r-- | examples/apps/nanoedit/testfiles/file2.pas | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/examples/apps/nanoedit/testfiles/file2.pas b/examples/apps/nanoedit/testfiles/file2.pas new file mode 100644 index 00000000..86144432 --- /dev/null +++ b/examples/apps/nanoedit/testfiles/file2.pas @@ -0,0 +1,19 @@ +{ ************************************** + * oeu oe uoe uoeu * + * oeu oe uoe uoeu * + * oeu oe uoe uoeu * + ************************************** } +procedure TMainForm.miOpenClick(Sender: TObject); +var + dlg: TfpgFileDialog; +begin + dlg := TfpgFileDialog.Create(nil); + try + if dlg.RunOpenFile then + begin + memEditor.Lines.LoadFromFile(dlg.FileName); + end; + finally + dlg.Free; + end; +end; |