Einzelnen Beitrag anzeigen

frea

Registriert seit: 26. Aug 2004
Ort: Chemnitz
11 Beiträge
 
#1

Dynamisches Array in untypisierte Datei schreiben

  Alt 14. Sep 2004, 15:14
Hallo Ihr,
mal wieder Probleme:
ich möchte gern ein dynamisches Array in eine untypisierte Datei schreiben.
Als Typen habe ich dafür definiert:

Delphi-Quellcode:
type
  TTSFCoord = packed array[0..2] of single;
  PTSFCoords = ^TTSFCoords;
  TTSFCoords = packed array[0..0] of TTSFCoord;
Das Problem ist, wie weise ich meinem dynamischen Array "koordinaten" vom Typ TTSFCoords eine Länge zu?
Mit setLength(koordinaten,wert) bekomme ich eine Fehlermeldung: Incompatible Types. Dabei ist "wert" eine Zahl vom Typ longint.

Definiere ich den Typ TTSFCoords statisch, also z.B.

TTSFCoords = packed array[0..2] of TTSFCoord so funktioniert es, und ich kann "koordinaten" mit Werten belegen.

Lasse ich in der Typdeklaration das [0..0] weg, also

 TTSFCoords = packed array of TTSFCoord; und vergebe die dann mit setLength(koordinaten,wert), so funktioniert das.
Allerdings bekomme ich dann Fehlermeldungen, wenn ich das dynamische array in die untypisierte Datei einlesen will.
Dafür definiere ich mir noch einen Zeiger koordinatenzeigerTSFCoords und weise dem die Adresse von "koordinaten" zu: koordinatenzeiger := @koordinaten;
und schreibe in die Datei wie folgt:

BlockWrite(Datei,koordinatenzeiger^,PointCount*sizeof(TTSFCoord)); wobei PointCount vom Typ longint und vorgeben ist.
Lese ich die so erzeugte Datei nun in ein dafür vorgesehenes Programm ein, bekomme ich den Fehler Überlauf bei Gleitkomma-Operation.
Nun verstehe ich nicht, warum.

Ich weiss, viele Fragen auf einmal, aber vielleicht kann mir wer helfen?
Danke, frea!
  Mit Zitat antworten Zitat