Und Du bist Dir sicher, daß das richtigfunktionier?
verkürzt hast Du:
Delphi-Quellcode:
Funktion Read:TStream;
begin
if abbruch then Exit;
Result:=TStream.Create;
end;
//Tuwas
MyStream:TStream;
MyStream:=TStream.Create;
MyStream:=Read;
...
MyStream.Free;
Wenn Deine er Funktion erfolgreich ist, dann nagelst Du einen zweiten Stream über den ersten oder was?
Das sieht mir sehr nach einem Memory-leak aus.
Mach es mit einer Procedure (
read(const mystream:TStream)
) und Du bist auf der sicheren Seite.
Gruß
K-H