Hallo
Habe wiedermal ein Problem
und zwar bekomme ich immer diesen Fehler:
E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
aber ich sehe nicht den Fehler?
kann mir einer sagen bitte was ich ändern muss wo das Problem ligt?
Code:procedure DecompressStream(inpStream, outStream: TStream); var InpBuf, OutBuf: Pointer; OutBytes, sz: LongInt; begin InpBuf := nil; OutBuf := nil; sz := inpStream.Size - inpStream.Position; if sz > 0 then try GetMem(InpBuf, sz); inpStream.Read(InpBuf^, sz); ZDecompress(InpBuf, sz, 0, OutBuf, OutBytes); outStream.Write(OutBuf^, OutBytes); finally if InpBuf <> nil then FreeMem(InpBuf); if OutBuf <> nil then FreeMem(OutBuf); end; outStream.Position := 0; end;




Zitieren
