Context Navigation

UProject.pas

Last change on this file was 11, checked in by chronos, 10 years ago
Added: Some new concept forms and actions.
File size: 1.5 KB

Line
1	unit UProject;
2
3	interface
4
5	uses
6	Generics.Collections, Classes, XMLDoc;
7
8	type
9	TProjectFile = class
10	FileName: string;
11	Changed: string;
12	Source: TStringList;
13	constructor Create;
14	destructor Destroy; override;
15	end;
16
17	TProject = class
18	FileName: string;
19	Files: TList<TProjectFile>;
20	Modified: Boolean;
21	constructor Create;
22	destructor Destroy; override;
23	procedure LoadFromFile(FileName: string);
24	procedure SaveToFile(FileName: string);
25	procedure Load;
26	procedure Save;
27	end;
28
29	implementation
30
31	{ TProject }
32
33	constructor TProject.Create;
34	begin
35	Files := TList<TProjectFile>.Create;
36	end;
37
38	destructor TProject.Destroy;
39	begin
40	Files.Free;
41	inherited;
42	end;
43
44	procedure TProject.Load;
45	var
46	Doc: TXMLDocument;
47	begin
48	try
49	Doc := TXMLDocument.Create(nil);
50	Doc.LoadFromFile(FileName);
51	Modified := False;
52	finally
53	Doc.Free;
54	end;
55	end;
56
57	procedure TProject.LoadFromFile(FileName: string);
58	begin
59	Self.FileName := FileName;
60	Load;
61	end;
62
63	procedure TProject.Save;
64	var
65	Doc: TXMLDocument;
66	begin
67	try
68	Doc := TXMLDocument.Create(nil);
69	Doc.SaveToFile(FileName);
70	Modified := False;
71	finally
72	Doc.Free;
73	end;
74	end;
75
76	procedure TProject.SaveToFile(FileName: string);
77	begin
78	Self.FileName := FileName;
79	Save;
80	end;
81
82	{ TProjectFile }
83
84	constructor TProjectFile.Create;
85	begin
86	Source := TStringList.Create;
87	end;
88
89	destructor TProjectFile.Destroy;
90	begin
91	Source.Free;
92	inherited;
93	end;
94
95	end.

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