Public Arrays in Klassen

[sezer.yilmaz]

Sorry hab das grad weggelassen. Der Tip mit dem Property ist natürlich noch implementiert.
Aber wie gesagt bringt mir die Klasse auch nicht viel. Damit hätte ich halt das Record selber definiert aber mehr auch nicht (oder vielleicht doch ?). Jedenfalls habe ich immer noch keinen Schreibzugriff.

Delphi-Quellcode:

unit UCoordinates;

interface

type
//Unterklasse Zahlenpaar
TPair = class(TObject)
private
  Fx_value    : Single;
  Fy_value    : Single;
public
  constructor create();
  destructor destroy();
  property x_value : single read Fx_Value write Fx_Value;
  property y_value : single read Fy_Value write Fy_Value;
end;

//Klasse Tabelle mit Zahlenpaaren
TCoordinates = class(TObject)
private
  ACoordinates : Array of TPair;
  function GetCoordinates (Index : integer) : TPair ;
public
  constructor Create();
  destructor Destroy;
  property Coordinates [index : integer] : TPair read GetCoordinates;
end;

implementation

//Implementation für TPair
constructor TPair.Create();
begin
inherited Create;
end;

destructor TPair.Destroy;
begin
end;

//Implementation für TCoordinates
constructor TCoordinates.Create();
begin
inherited Create;
SetLength(ACoordinates, 1);
end;

destructor TCoordinates.Destroy;
begin
end;

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

end.