Zitat von
mkinzler:
Ist ja auch logisch. Vor dem Lesen ist der String auch leer. Du musst die Länge mit in den Stream speichern. Zudem würde ich bei Strings die Länge und nicht sizeOf nehmen.
Ja ok, aber warum funktioniert es mit allen, außer mit dem einen?
Delphi-Quellcode:
procedure TAuto.InDateiSchreiben (var Fs : TFilestream);
(* -------------------------------------------------------------------- *)
var
i : integer;
begin
FS.Write(Name, sizeOF(Name));
FS.Write(Kennzeichen, sizeOF(Kennzeichen));
FS.Write(GeschGer, sizeOF(GeschGer));
FS.Write(Farbe, sizeOF(Farbe));
FS.Write(Preis, sizeOF(Preis));
FS.Write(DX, sizeOF(DX));
FS.Write(GesMenge,sizeOF(GesMenge)); //wird, wie gesagt nicht gespeichert :(