1 | unit Items;
|
---|
2 |
|
---|
3 | interface
|
---|
4 |
|
---|
5 | uses
|
---|
6 | Classes, SysUtils, Generics.Collections, DOM, XML;
|
---|
7 |
|
---|
8 | type
|
---|
9 | { TItem }
|
---|
10 |
|
---|
11 | TItem = class
|
---|
12 | Id: Integer;
|
---|
13 | procedure LoadFromXmlNode(Node: TDOMNode); virtual;
|
---|
14 | procedure SaveToXmlNode(Node: TDOMNode); virtual;
|
---|
15 | procedure Assign(Source: TItem); virtual;
|
---|
16 | class function GetClassSysName: string; virtual;
|
---|
17 | end;
|
---|
18 |
|
---|
19 | TItemClass = class of TItem;
|
---|
20 |
|
---|
21 | { TItems }
|
---|
22 |
|
---|
23 | TItems<T: TItem> = class(TObjectList<T>)
|
---|
24 | public
|
---|
25 | type
|
---|
26 | TTClass = class of T;
|
---|
27 | var
|
---|
28 | NewId: Integer;
|
---|
29 | class function GetItemClass: TTClass; virtual;
|
---|
30 | class function GetClassSysName: string; virtual;
|
---|
31 | function GetNewId: Integer;
|
---|
32 | function AddItem: T; virtual;
|
---|
33 | procedure Assign(Source: TItems<T>); virtual;
|
---|
34 | function CreateItem: T; virtual;
|
---|
35 | procedure LoadFromXmlNodeRef(Node: TDOMNode; Target: TItems<T>);
|
---|
36 | procedure SaveToXmlNodeRef(Node: TDOMNode);
|
---|
37 | procedure LoadFromXmlNode(Node: TDOMNode); virtual;
|
---|
38 | procedure SaveToXmlNode(Node: TDOMNode); virtual;
|
---|
39 | procedure RebuildItemsId;
|
---|
40 | function FindById(Id: Integer): T;
|
---|
41 | constructor Create(AOwnsObjects: Boolean = True); virtual;
|
---|
42 | end;
|
---|
43 |
|
---|
44 | resourcestring
|
---|
45 | SReferenceNotFound = 'Reference %s to class %s not found.';
|
---|
46 |
|
---|
47 |
|
---|
48 | implementation
|
---|
49 |
|
---|
50 | { TItem }
|
---|
51 |
|
---|
52 | procedure TItem.LoadFromXmlNode(Node: TDOMNode);
|
---|
53 | begin
|
---|
54 | Id := ReadInteger(Node, 'Id', Id);
|
---|
55 | end;
|
---|
56 |
|
---|
57 | procedure TItem.SaveToXmlNode(Node: TDOMNode);
|
---|
58 | begin
|
---|
59 | WriteInteger(Node, 'Id', Id);
|
---|
60 | end;
|
---|
61 |
|
---|
62 | procedure TItem.Assign(Source: TItem);
|
---|
63 | begin
|
---|
64 | Id := Source.Id;
|
---|
65 | end;
|
---|
66 |
|
---|
67 | class function TItem.GetClassSysName: string;
|
---|
68 | begin
|
---|
69 | Result := ClassName;
|
---|
70 | end;
|
---|
71 |
|
---|
72 | { TItems }
|
---|
73 |
|
---|
74 | procedure TItems<T>.Assign(Source: TItems<T>);
|
---|
75 | var
|
---|
76 | I: Integer;
|
---|
77 | begin
|
---|
78 | while Count > Source.Count do Delete(Count - 1);
|
---|
79 | while Count < Source.Count do AddItem;
|
---|
80 | for I := 0 to Count - 1 do
|
---|
81 | Items[I].Assign(Source.Items[I]);
|
---|
82 | end;
|
---|
83 |
|
---|
84 | class function TItems<T>.GetItemClass: TTClass;
|
---|
85 | begin
|
---|
86 | Result := TTClass(T.ClassType);
|
---|
87 | end;
|
---|
88 |
|
---|
89 | class function TItems<T>.GetClassSysName: string;
|
---|
90 | begin
|
---|
91 | Result := ClassName;
|
---|
92 | end;
|
---|
93 |
|
---|
94 | function TItems<T>.GetNewId: Integer;
|
---|
95 | begin
|
---|
96 | Result := NewId;
|
---|
97 | Inc(NewId);
|
---|
98 | end;
|
---|
99 |
|
---|
100 | function TItems<T>.AddItem: T;
|
---|
101 | begin
|
---|
102 | Result := CreateItem;
|
---|
103 | Result.Id := GetNewId;
|
---|
104 | Add(Result);
|
---|
105 | end;
|
---|
106 |
|
---|
107 | function TItems<T>.CreateItem: T;
|
---|
108 | begin
|
---|
109 | Result := GetItemClass.Create;
|
---|
110 | end;
|
---|
111 |
|
---|
112 | procedure TItems<T>.LoadFromXmlNodeRef(Node: TDOMNode; Target: TItems<T>);
|
---|
113 | var
|
---|
114 | Node2: TDOMNode;
|
---|
115 | NewItem: T;
|
---|
116 | RefId: Integer;
|
---|
117 | begin
|
---|
118 | Node2 := Node.FirstChild;
|
---|
119 | while Assigned(Node2) and (Node2.NodeName = DOMString(T.GetClassSysName)) do begin
|
---|
120 | RefId := StrToInt(string(Node2.TextContent));
|
---|
121 | NewItem := Target.FindById(RefId);
|
---|
122 | if Assigned(NewItem) then Add(NewItem)
|
---|
123 | else raise Exception.Create(Format(SReferenceNotFound, [string(Node.TextContent),
|
---|
124 | T.GetClassSysName]));
|
---|
125 | Node2 := Node2.NextSibling;
|
---|
126 | end;
|
---|
127 | end;
|
---|
128 |
|
---|
129 | procedure TItems<T>.SaveToXmlNodeRef(Node: TDOMNode);
|
---|
130 | var
|
---|
131 | I: Integer;
|
---|
132 | begin
|
---|
133 | for I := 0 to Count - 1 do begin;
|
---|
134 | WriteInteger(Node, T.GetClassSysName, Items[I].Id);
|
---|
135 | end;
|
---|
136 | end;
|
---|
137 |
|
---|
138 | procedure TItems<T>.RebuildItemsId;
|
---|
139 | var
|
---|
140 | I: Integer;
|
---|
141 | begin
|
---|
142 | for I := 0 to Count - 1 do
|
---|
143 | Items[I].Id := I + 1;
|
---|
144 | end;
|
---|
145 |
|
---|
146 | function TItems<T>.FindById(Id: Integer): T;
|
---|
147 | var
|
---|
148 | I: Integer;
|
---|
149 | begin
|
---|
150 | I := 0;
|
---|
151 | while (I < Count) and (Items[I].Id <> Id) do Inc(I);
|
---|
152 | if I < Count then Result := Items[I]
|
---|
153 | else Result := nil;
|
---|
154 | end;
|
---|
155 |
|
---|
156 | constructor TItems<T>.Create(AOwnsObjects: Boolean = True);
|
---|
157 | begin
|
---|
158 | inherited;
|
---|
159 | NewId := 1;
|
---|
160 | end;
|
---|
161 |
|
---|
162 | procedure TItems<T>.LoadFromXmlNode(Node: TDOMNode);
|
---|
163 | var
|
---|
164 | Node2: TDOMNode;
|
---|
165 | NewItem: T;
|
---|
166 | begin
|
---|
167 | Count := 0;
|
---|
168 | Node2 := Node.FirstChild;
|
---|
169 | while Assigned(Node2) and (Node2.NodeName = UnicodeString(T.GetClassSysName)) do begin
|
---|
170 | NewItem := CreateItem;
|
---|
171 | NewItem.LoadFromXmlNode(Node2);
|
---|
172 | Add(NewItem);
|
---|
173 | Node2 := Node2.NextSibling;
|
---|
174 | end;
|
---|
175 | end;
|
---|
176 |
|
---|
177 | procedure TItems<T>.SaveToXmlNode(Node: TDOMNode);
|
---|
178 | var
|
---|
179 | I: Integer;
|
---|
180 | NewNode2: TDOMNode;
|
---|
181 | begin
|
---|
182 | for I := 0 to Count - 1 do
|
---|
183 | with TItem(Items[I]) do begin
|
---|
184 | NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString(T.GetClassSysName));
|
---|
185 | Node.AppendChild(NewNode2);
|
---|
186 | SaveToXmlNode(NewNode2);
|
---|
187 | end;
|
---|
188 | end;
|
---|
189 |
|
---|
190 |
|
---|
191 | end.
|
---|
192 |
|
---|