blob: 86144432d211c4c2974631716afd45526c193917 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;
|
