Problem beim Lesen (und schreiben?) von Stream

[Andreas13]

Das erste Zeichen des Puffers ist 0 mund nicht 1. Der Positionszeiger muss auf 0 gesetzt werden:

Delphi-Quellcode:

 function LoadStrFromStream(Const St: TMemoryStream): AnsiString;
  var Len: LongInt;
  begin
    St.Position:= 0;
    St.ReadBuffer(Len, SizeOf(Len));
    SetLength(Result, Len);

    If Len > 0 Then 
      St.ReadBuffer(Result[0] , Len*SizeOf(Result[0]));
  end;

Gruß, Andreas