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 :wall:

Gruß
Neutral General

[Hawkeye219]

Hallo Michael,

bei deiner Speicherprozedur hast du die Variable Int als Variant vereinbart. Du darfst nicht davon ausgehen, daß der darin gespeicherte Integerwert direkt am Anfang des vom Variant benötigten Speicherplatzes liegt. Nimm besser eine normale Integer-Variable wie bei der Prozedur zum Laden der Daten. Den Namen "Int" solltest du auch vermeiden, er wird bereits für eine Standardfunktion verwendet.

Gruß Hawkeye

[Neutral General]

:wall:

Ich hatte das Problem mit Variant schon bemerkt und hatte das auch weitgehend abgeändert... Weitgehend... :roll:
Danke :) Das war grad einfach wieder ein Problem das durch unnötige Blindheit entstanden ist :mrgreen: