Context Navigation

source: trunk/FormMain.pas

Last change on this file was 3, checked in by chronos, 12 months ago
Modified: Removed U prefix from unit names. Modified: Improved summary calculation. Added: Parsing rent car initial odometer.
File size: 1.1 KB

Line
1	unit FormMain;
2
3	interface
4
5	uses
6	Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
7	Car;
8
9	type
10
11	{ TFormMain }
12
13	TFormMain = class(TForm)
14	EditSource: TEdit;
15	LabelSource: TLabel;
16	LabelSummary: TLabel;
17	MemoSummary: TMemo;
18	MemoLog: TMemo;
19	PageControlSummary: TPageControl;
20	TabSheet1: TTabSheet;
21	TabSheetLog: TTabSheet;
22	procedure FormCreate(Sender: TObject);
23	procedure FormDestroy(Sender: TObject);
24	procedure FormShow(Sender: TObject);
25	private
26	procedure Log(Text: string);
27	public
28	Summary: TSummary;
29	end;
30
31	var
32	FormMain: TFormMain;
33
34	implementation
35
36	{$R *.lfm}
37
38	{ TFormMain }
39
40	procedure TFormMain.FormShow(Sender: TObject);
41	begin
42	Summary.OnLog := Log;
43	Summary.LoadFromFile(EditSource.Text);
44	MemoSummary.Text := Summary.Print;
45	end;
46
47	procedure TFormMain.Log(Text: string);
48	begin
49	MemoLog.Lines.Add(Text);
50	end;
51
52	procedure TFormMain.FormCreate(Sender: TObject);
53	begin
54	Summary := TSummary.Create;
55	end;
56
57	procedure TFormMain.FormDestroy(Sender: TObject);
58	begin
59	FreeAndNil(Summary);
60	end;
61
62	end.
63

Note: See TracBrowser for help on using the repository browser.