Thema: Delphi Public Arrays in Klassen

Einzelnen Beitrag anzeigen

sezer.yilmaz

Registriert seit: 20. Nov 2004
11 Beiträge
 
#3

Re: Public Arrays in Klassen

  Alt 28. Nov 2004, 15:29
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.
  Mit Zitat antworten Zitat