LZMA SDK - String in Stream packen

[smallsmoker]

so habs selber geschafft

Delphi-Quellcode:

function ReadStrFromStream(const Stream: TStream): String;
begin
  Stream.Position := 0;
  SetLength(result,Stream.Size);
  Stream.ReadBuffer( pointer(result)^ , Stream.Size);
end;

edit1: ich guck mir das mal an mit datastring

edit2: danke alzaimar .datastring klappt gut