hallo zusammen
ich habe ein grosses problem und zwar: ich habe eine class und darin ein record! die klasse möchte ich neu aufrufen um ein grosses dyn. array zu erstellen! ich möchte nun ein property erstellen mit welchem ich ein child in der classe erstellen kann! (mit einer procedure)! wenn ihr jetzt das property add child anschaut, was für ein datentyp muss ich jetzt angeben damit ich die prozedure aufrufen kann? (siehe Code)
hat jemand mir eine idee? ich habe schon alles versucht, aber es gelingt mir einfach nicht!
Danke delphirxs
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. |
Moderiert von 
Tino: Code- durch Delphi-Tags ersetzt.
