Public Arrays in Klassen

[sezer.yilmaz]

Vielen vielen Dank ! Bin immer wieder beeindruckt wie schnell man Antworten bekommt.
Ich kann jetzt in gewünschter Art auf die Elemente im Array zugreifen.
So hier z.B.:

Code:

showmessage(FloatToStr(MyCoordinates.Coordinates[0].y_value));

Das Problem ist jetzt nur, dass ich ja eigentlich auch drauf schreiben wollte in dieser Art:

Code:

MyCoordinates.Coordinates[0].y_value := 22;

Nach langem Probieren habe ich das irgendwie nicht hinbekommen
Hat da jemand ne Idee ? Ist bestimmt wieder total simpel.


Und hier für alle,die wissen wollen, wie der Schreibzugriff geklappt hat:

Delphi-Quellcode:

unit UCoordinates;

interface

type RCoordinates = Record 
x_value    : Single;
y_value    : Single; 
end;

type
TCoordinates = class(TObject)

private
ACoordinates : Array of RCoordinates;
function GetCoordinates (Index : integer) : RCoordinates ;


public
 constructor Create();
 destructor Destroy;
 property Coordinates [index : integer] : RCoordinates read GetCoordinates;
end;

implementation

constructor TCoordinates.Create();
begin
inherited Create;
SetLength(ACoordinates, 1);
ACoordinates[0].x_value := 0;
ACoordinates[0].y_value := 0;
end;

destructor TCoordinates.Destroy;
begin
end;

function TCoordinates.GetCoordinates (Index : integer) : RCoordinates ;
begin
      Result := ACoordinates[index] ;
end ;

end.