Hab zur Zeit leider keinen Zugriff auf den Quellcode - aber die Datenstruktur sieht ungefähr aus Kopf so aus:
Code:
tKarte = record
SNr : integer;
ID : Cardinal;
Del : boolean;
KID : Cardinal;
CDate : TDateTime;
L1,
L2,
L3,
L4,
L5, //echte Länge der Daten
L6 : word; //Längenfelder für 6 strings
Titel : string; //255
Info1 : string; //255
Info2 : string; //255
DokFile : string; //L=1024
WWWRef : string; //L=1024
Memo : string; //L=2048
Termin : TDateTime;
TStatus : byte;
end;
Im Ergebnis kommen dabei 4933 Byte raus.
L1-L6 haben die echte Feldlänge der nachfolgenden Strings zum Inhalt
Felder kleiner der definierten Länge werden künstlich erweitert auf die definierte Länge, in etwa Info1 := Erw(Edit1.Text,255)
Insofern dürfte sich kein Feld bzw. der ganze Stream von der Größe her ändern.
Das mit der Größenprüfung bau ich mal erweitert ein und meld mich dann wieder.
Danke und noch nen schönen Tach ...