Hi, jede compo in eine eigenes array? versteh ich nicht! macht eigentlich nur sinn, wenn man mehrere compos in ein array tut.
ich würd weder reg. noch noch ini benutzen, sondern ein typed-file.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| type
TCompoPos = packed record
name: string[$FF];
r : TRect;
end;
TCompoPosArr = array of TCompoPos;
TCompoPosFile = file of TCompoPos;
var PosArr : TCompoPos;
f: TCompoPosFile;
...
//PosArr füllen
for i:= 0 to ?.count-1 do
begin
n := length(posArr);
setLength(PosArr,n+1);
posArr[n].name := ?[i].name
posArr[n].r := ?[i].rect;
end;
...
assignFile(f,'c:\test.file');
rewrite(f);
try
for i:= 0 to length(posArr)-1 do write(f, posArr[i]);
finally
closeFile(f);
end; |
...kannst auch das komplette array als block speichern. Oder mit dem TWriter object alle compos (die sich unter der angegebenen compo befinden), mit allen properties, speichern.
vielleicht hilft das ja
mfg mx.
