Array of TPoint in Set und Get Prozeduren/Funktion

[Hartkern]

Hallo,

ich erstelle eine Klasse TFeld. Diese beinhaltet bestimmte Eigenschaften des Spielfeldes (Wald, Straße, Stadt, etc), sowie die Position des Feldes auf der Gesamtkarte.
Das Feld selbst ist ein Hexagon. Ich will jeden Eckpunkt des Feldes speichern um es später mit einer PointInPoly Funktion auslesen können.

Meine bisherige Lösung zum speichern der Position ist recht dramatisch hässlich

Procedure Setpos(x0,y0,.....x5,y5 : integer);

Über die GetPos hab ich mir so richtig den kopf zerbrochen, weil ich kann ja nicht für jede x und y Koordinate eine einzelne Funktion schreiben..das macht ja sage und schreibe 12 GetPos Funktionen

Ich würde das gerne mit einem Array[0..5 of TPoint] lösen bei der Variablenübergabe beim speichern und beim auslesen, jedoch scheitere ich immer wieder den Prozedurekopf zu basteln, geschweige eine Funktion mit 12 Ergebnissen zu erstellen.

Vielen Dank

[theo]

Code: Alles auswählen

type TMyArr = Array[0..5 ] of TPoint;        
...
Procedure Setpos(MyArr:TMyArr);
begin
//
end;  

Oder wo ist dein Problem?

[Hartkern]

procedure Setpos(feld: array [0..5] of TPoint);

das war mein Fehler

immer diese Wälder vor den Augen!

Danke