TP7 Records in Delphi 4

[Henrik Christensen]

Ich habe Probleme beim Einlesen folgendes TP7 Record in der gleichen Form unter Delphi. Den ersten Longint (Beweis) nimt er noch mit, dann ändert sich wohl die Anzahl reservierter Bytes.

Type

TOWDNA = record
Nr : longint;
KFZKz : String;
Nation : String [3];
Herst : String;
Farbe : String [8];
BTag : TDatum;
BZeit : String;
VTag : TDatum;
VZeit : String;
Betl : String;
Beweis : longint;
TBNr : longint;
busse : longint;
tatort : String [180];
Konk : array [1..3] of String[78];
SBeweis : String [120];
ErlWert : longint;
GemWert : longint;
anhoer : TDatum;
verstoss: String [1];
Dienstst: String [7];
Dienstnr: longint;
AZName : String [32];
ZVName : String [32];
ZNName : String [32];
ZPlz : String[5];
ZOrt : String [32];
ZStr : String [32];
BetrVN : String [32];
BetrNN : String [32];
GebDat : TDatum;
GebOrt : String [32];
GebName : String [32];
BetrPLZ : String;
BetrORT : String;
BetrStr : String [32];
FKlasse : String [3];
FOrt : String [32];
FDatum : TDatum;
AKZ : String [11];
IS_P : boolean;
end;

[Frank Wolter]

Definiere den Record unter Delphi als

type TOWDNA = packed record ...

Bei BP7/TP7 war das nicht nötig, mit record wurde automatisch ein packed record verwendet.

Fran