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.