一个简单的Ｄelphi框架－xDom－２ 文件存储

 受益于对象层的灵活，文件存储变的比较简单！

以下是文件存储的实现代码

 

模型文件下载地址

 

http://www.onewone.com/designone/xDOM.dom

 

1. {*******************************************************}
2. //
3. //   文件存储模板:以流的形式存储数据
5. //   特点:1 受益于对象模型的灵活,使得文件的存储实现变的非常简单
6. //        2 支持部分加载
7. //        3 采用类方法的方式,即有比较好的结构性,也省去了对象的创建和销毁的开销
8. //
9. {*******************************************************}
10. unit ModelFile;
12. interface
14. uses
15.   classes,
16.   ModelObject;
19. type
20. {DesignOne}
21. {CodeTemplate}
22. {<Object ObjectMapType=AllObjects>
23.   T[ObjectName]File=class
24.   public
25.     class function Load(ADataList:T[ObjectName]List;Reader:TReader;ALoadChild:boolean):boolean;
26.     class function Save(ADataList:T[ObjectName]List;Writer:TWriter;ASaveChild:boolean):boolean;
27.     class function LoadChild(Reader: TReader;AData: T[ObjectName];ALoadChild:boolean): boolean;
28.     class function SaveChild(Writer: TWriter;AData: T[ObjectName];ASaveChild:boolean): boolean;
29.   end;
30.  </Object>}
31. {/CodeTemplate}
32. {/DesignOne}
34.   TModelFile = class
35.     class function Load(AModelData:TModelData;Reader:TReader;ALoadChild:boolean):boolean;
36.     class function Save(AModelData:TModelData;Writer:TWriter;ASaveChild:boolean):boolean;
37.   end;
39. implementation
41. {DesignOne}
42. {CodeTemplate}
43. {<Object ObjectMapType=AllObjects>
45. class function T[ObjectName]File.Load(ADataList: T[ObjectName]List;
46.   Reader: TReader;ALoadChild: boolean): boolean;
47. var
48.   Data : T[ObjectName];
49.   i:Integer;
50.   MaxCount : integer;
51. begin
52.   Result := False;
53.   ADataList.ClearList;
54.   MaxCount := Reader.ReadInteger;
55.   for i := 0 to MaxCount-1 do
56.   begin
57.     Data := T[ObjectName].create;
58.     with Data,Reader do begin
59.      <Property PropertyMapType=AllPropertys ObjectName=[ObjectName]>
60.      [PropertyName] := Read[VarTypeForFile];
61.      </Property>
62.     end;
63.     ADataList.Add[ObjectName](Data);
64.     if ALoadChild then T[ObjectName]File.LoadChild(Reader,Data,ALoadChild);
65.   end;
66.   Result := True;
67. end;
69. class function T[ObjectName]File.LoadChild(Reader: TReader; AData: T[ObjectName];
70.    ALoadChild: boolean): boolean;
71. var
72.   j:integer;
73. begin
74.   Result := False;
75.    <ObjectShip ObjectShipMapType=ChildObjects ObjectName=[ObjectName]>
76.     T[ObjectShipName]File.Load(AData.[ObjectShipName]List,Reader,ALoadChild);
77.     for j := 0 to AData.[ObjectShipName]List.Count-1 do AData.[ObjectShipName]List.Items[j].[ObjectName] := AData;
78.     </ObjectShip>
79.   Result := True;
80. end;
82. class function T[ObjectName]File.Save(ADataList: T[ObjectName]List;
83.   Writer: TWriter;ASaveChild: boolean): boolean;
84. var
85.   Data : T[ObjectName];
86.   i:Integer;
87. begin
88.   Result := False;
89.   Writer.WriteInteger(ADataList.Count);
90.   for i := 0 to ADataList.Count-1 do
91.   begin
93.     Data := ADataList.Items[i];
94.     with Data,Writer do begin
95.      <Property PropertyMapType=AllPropertys ObjectName=[ObjectName]>
96.      Write[VarTypeForFile]([PropertyName]);
97.      </Property>
98.     end;
99.     if ASaveChild then T[ObjectName]File.SaveChild(Writer,Data,ASaveChild);
100.   end;
101.   Result := True;
102. end;
104. class function T[ObjectName]File.SaveChild(Writer: TWriter; AData: T[ObjectName];
105.   ASaveChild: boolean): boolean;
106. begin
107.   Result := False;
108.    <ObjectShip ObjectShipMapType=ChildObjects ObjectName=[ObjectName]>
109.     T[ObjectShipName]File.Save(AData.[ObjectShipName]List,Writer,ASaveChild);
110.    </ObjectShip>
111.   Result := True;
112. end;
114.  </Object>}
115. {/CodeTemplate}
116. {/DesignOne}
118. class function TModelFile.Load(AModelData: TModelData;Reader: TReader; ALoadChild: boolean): boolean;
119. begin
120. {DesignOne}
121. {CodeTemplate}
122. {<Object ObjectMapType=TopObjects>
123.   T[ObjectName]File.Load(AModelData.[ObjectName]List,Reader,ALoadChild);
124.  </Object>}
125. {/CodeTemplate}
126. {/DesignOne}
127. end;
128. class function TModelFile.Save(AModelData: TModelData;Writer: TWriter; ASaveChild: boolean): boolean;
129. begin
130. {DesignOne}
131. {CodeTemplate}
132. {<Object ObjectMapType=TopObjects>
133.   T[ObjectName]File.Save(AModelData.[ObjectName]List,Writer,ASaveChild);
134.  </Object>}
135. {/CodeTemplate}
136. {/DesignOne}
137. end;
139. end.