Setlength aufrufen von untergeordneter prozedur auf owner Klasse.

[gemy]

Hallo nochmal

habe jetzt ewig rumprobiert, aber ich bekomme es nicht gebacken. Sogar wenn ich es so mache geht es nicht :

Code:

Tpattern = class(Tobject)
        PRIVATE TYPE
                 Torder = record
                        
                        fMissed_points: currency;

                        
                        procedure SetMissedPoints (val : currency);
                        
        PUBLIC
                        property Missed_points : currency Read fMissed_points Write SetMissedPoints;
        end;


 PRIVATE


 fMedArr: array of currency;


  PUBLIC { Public-Deklarationen  }
  OrderItems    : array of Torder;
  procedure MedArr(const Value: currency);



end;

Code:

procedure Tpattern.MedArr(const Value: currency);
var temp: integer;
begin
temp := Length(self.fMedArr)-1;
SetLength(self.fMedArr, temp);
self.fMedArr[temp] := Value;
end;

Code:

procedure Tpattern.Torder.SetMissedPoints(val: currency);
var i : integer;
begin
self.fMissed_points := val;
//Zugriff auf Tpattern.MedArr(const Value: currency) geht nicht.

end;

Egal wie ich es drehe oder wende, ich komme von innen nicht nach ausen um vom Record aus auf die übergeordnete Klasse das SetLenght zu verwenden.