String komprimieren dekomprimieren

[SleepyMaster]

Delphi-Quellcode:

        LStream.Position := 0;
        SetLength(LString, LStream.Size);
        LStream.Write(LString[1], LStream.Size);// hier gibt es den fehler Zugriffsverletzung...

        LCompressed := CompressString(LString);

        LStream.Clear;

Damit söllte es gehen!