Dynamisches Array abspeichern

[Sivale]

Hallo Leute,

dies ist mein erster Beitrag in diesem Forum.

Ich möchte die Gelegenheit nutzen und alle netten und freundlichen Leute grüßen,
die sich die Mühe machen diese Forum zu betreiben, und auch Alle anderen,
die mit ihren Beiträgen das Forum bereichern.

Nun zur Frage:

Wie würdet ihr ein 2-dimensionales dynamischer Array of TPoint
auf Festplatte abspeichern und wieder einlesen ?

Ich habe eine Zeichenfläche auf der ich auf einer Bitmap ( Landkarte ) einzelne Punkte
entlang der Landesgrenzen einzeichne und in ein dyn. Array of TPoint abspeichere.
Jedes Land stellt somit ein einzelnes dynamisches Array of TPoint dar, mit verschiedener Anzahl
an einzelnen Punktepaaren. Alle Einzelarreys werden in einem Array of Array of TPoint verwaltet.
Diese Arrays of TPoint werden nachher an die Procedure Canvas.Polygon übergeben um die Grenzen
zu zeichnen falls sich die Maus innerhalb des Landes befindet.

Alle Punkte sollen nun auf Festplatte gespeichert und wieder ausgelesen werden.
Bisher mache ich es so, dass ich mit einem Stream alle Punktepaare hintereinander abspeichere und
da wo ein neues Land kommt, einen bestimmten Wert einsetze der normal nicht vorkommen kann (9999 , 9999).

Funktionieren tut's, finde ich aber irgendwie unschön und bin sicher es geht auch besser.

Es wäre sehr gut, wenn ich es innerhalb eines Record abspeichern könnte wie :

TLand = Record

Landname : String;
Grenzpunkte : Array of TPoint;
Grenzländer : Array of TLand;

etc...

Hoffe Ihr habt ein paar Vorschläge für mich.

mfg S.