Setlength aufrufen von untergeordneter prozedur auf owner Klasse.

[gemy]

Guten Morgen !

Ich habe ein Trecord in einer Klasse :

..

Code:

Torder = record
         private
                ...
                fMissed_points: currency;
                ...
                
                procedure SetMissedPoints (Value: currency);
                ...
        public
                property Missed_points : currency Read fMissed_points Write SetMissedPoints;
end;

Tpattern = class(Tobject)
          PRIVATE
          fMedArr: array of currency;
          ...


   PUBLIC { Public-Deklarationen  }
          OrderItems    : array of Torder;

nun befinde ich mich im Aufruf :

Code:

procedure Torder.SetMissedPoints(const Value: currency);
var i : integer;
begin
 self.fMissed_points := Value;
 Setlength(

//
end;

Wie kann ich von Torder.SetMissedPoints das Setlength auf fMedArr aufrufen ? quasi so: setlength(übergeordneteklasse.fMedarr,1); ? (das muss auch sicher sein wenn ich meine Klasse mehrmals erstelle). Irgendwie so muss das ausehen SetLength(tpattern.self.fmedarr,1). Ich komm aber leider nicht drauf.


Danke für eure Hilfe !