Stream.Read Problem

[Neutral General]

Hi,

Also ich versteh das grade nicht. Schaut euch das mal an:

Delphi-Quellcode:

procedure TForm1.SavePersonen(Filename: String);
var MS  : TMemoryStream;
    i   : Integer;
    Int : Variant;
    S   : String;
begin
   MS := TMemoryStream.Create;
   int := Length(Testpersonen);

   if int = 0 then exit;

   MS.Write(int,SizeOf(Integer));
   for i:= 0 to High(Testpersonen) do
   begin
     // Vorname
     S:= Testpersonen[i].Vorname; // z.B S = 'Michael'
     Int := Length(S);            // Int = 7
     MS.Write(Int,SizeOf(Integer));
     Ms.Write(S[1], Int);
     // Alles wunderbar!

und dann lade ich das wieder:

Delphi-Quellcode:

procedure TForm1.LoadPersonen(Filename: String);
var MS  : TMemoryStream;
    i   : Integer;
    Int : Integer;
    S   : String;
begin
   MS := TMemoryStream.Create;
   MS.LoadFromFile(Filename);

   MS.Read(Int,SizeOf(Integer));
   SetLength(Testpersonen,Int);
   for i:= 0 to High(Testpersonen) do
   begin
     Testpersonen[i] := TTestperson.Create;
     MS.Read(Int,SizeOf(Integer)); // Int = 3 (Wobei ich 'Michael' und 7 reingeschrieben hab
     SetLength(S, Int);
     MS.Read(S[1], Int);  // Wodurch hier auch nur 'Mic' rauskommt
     Testpersonen[i].Vorname := S;
     // ... Wodurch zu wenige Bytes gelesen wurden und alles durcheinander kommt - _ -

Also wie schon im Kommentar angedeutet. Wenn z.B Testpersonen[0].Vorname = 'Michael' dann wird auch 'Michael' reingeschrieben und die 7. Aber wenn ich das auslese kommt da ne 3 raus, ich lese nur 'Mic', also bis dahin 4 Bytes zu wenig wodurch dann alles durcheinander kommt

Gruß
Neutral General