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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
| unit TTestClass;
interface
type
TSnapshotObject = Record
Bezeichnung :STring;
Wert :String;
Beschreibung_Bezeichnung :String;
Beschreibung_Wert :String;
end;
type
TTdynArray = class;
TTsnapshotobjects = array of TSnapshotobject;
TdynArray = Array of TTdynArray;
TTdynArray = class
private
index : Integer;
ilengthchild : Integer;
ilengthservice : Integer;
ilengthprozess : Integer;
iServiceobjekte : TTsnapshotobjects;
iProzessobjekte : TTsnapshotobjects;
iAbsoluterindex : Integer;
iCID : String;
iP : String;
iChild : TdynArray;
public
property addchild : TdynArray write createchild read createchild;
property addservice : Integer write createservice;
property addprozess : Integer write createprozess;
property Absoluteindex[index: integer; pfad: string] : Integer read getabsoluteindex write getabsoluteindex;
property Child : TdynArray read iChild write iChild;
property Serviceobjekte : TTsnapshotobjects read iServiceobjekte write iServiceobjekte;
property Prozessobjekte : TTsnapshotobjects read iProzessobjekte write iProzessobjekte;
procedure createchild;
procedure createservice;
procedure createprozess;
function getabsoluteindex [index: integer] : String ;
end;
implementation
procedure TTdynArray.createchild;
begin
INC( ilengthchild );
setlength( iChild, ilengthchild );
iChild[ilengthchild-1] := TTdynArray.Create;
end;
procedure TTdynArray.createservice;
begin
INC( ilengthservice );
setlength( iServiceobjekte, ilengthservice );
end;
procedure TTdynArray.createprozess;
begin
INC( ilengthprozess );
setlength( iProzessobjekte , ilengthprozess );
end;
end. |
Tino: Code- durch Delphi-Tags ersetzt.