Dynamische Arrays öffnen

[programmierer]

Hi Leuz!
Ich brauch mal wieder eure Hilfe. Und zwar habe ich bei DSDT unter Tipps & Tricks eine Anleitung gefunden, wie ich dynamische Arrays speicher. Leider gab es keinen Hinweis dazu, wie ich diese wieder öffne! Evil :?:
Könnte mir das mal bitte jemand erklären :evil:

[Sharky]

Dafür müsste man vorher wissen wie Du sie gespeichert hast ;-)

[programmierer]

Nach genau dieser Anleitung!

[Sharky]

Zitat:

Zitat von programmierer

Nach genau dieser Anleitung!

Du musst das ganze eigentlich nur umdrehen.
Als erstes liest Du die Datei wieder in den Stram (nicht fmCreat sondern fmOpenRead).
Dann setzt Du die Länge des Arrays auf stream.size DIV Größe pro Eintrag (f.size DIV SizeOf(integer).
Jetzt nur doch die Daten in einer Schleife aus dem Stream in das Array lesen.

[SirThornberry]

anzumerken ist das man bei dem Beispiel auch auf die schleife verzichten kann und das gesamte Array in einem Rutsch schreiben kann (da es ein dynamisches Array ist, muss dies wie bei Strings geschehen - dereferenzieren des Arraypointers (Array[0]))

[inherited]

So ähnlich öffnest du es auch wieder.
Allerdings solltest du noch mit abspeichern ie groß dein array ist, zb so:

Delphi-Quellcode:

  length:=high(a);
  f.write(length, SizeOf(length));

mit

Delphi-Quellcode:

  f := TFileStream.Create('c:\test.dat', fmOpenRead);

öffnest du die datei,
mit

Delphi-Quellcode:

  f.Read(length, SizeOf(length));

liest du(wenn du die größe des arrays am anfang gespeicert hast) die größe aus

und mit

Delphi-Quellcode:

  f.read(Array[i], SizeOf(Array[i])

liest du die datei aus

Den rest(in eine for-schleife packen...) darfst du (aufgrund meiner unendlichen Güte :P ) selbst machen

€dit: funzt der rote kasten nich mehr?