summaryrefslogtreecommitdiff
path: root/examples/apps/nanoedit/testfiles/file2.pas
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;