Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Klaus01,
16. Aug 2009
Meine Absicht war, dass der übergebene Stream freigegeben wird und anschließend die
Adresse des intern erzeugten Streams zugewiesen bekommt.
So könnte das unkopieren entfallen.
Im Punkt 1 gebe ich Dir recht.
Objekte die als Paramter einer Routine übergeben werden müßen nicht als
var gekennzeichnet werden damit Änderungen auch ausserhalb der Routine
wahrgenommen werden.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Klaus01,
16. Aug 2009
Vielleicht geht es so schneller?
procedure CompressStream(aStream: TStream);
var
zc: TZCompressionStream;
ms: TStream;
begin
ms := (ms as TMemoryStream).Create;
zc := TZCompressionStream.Create(ms, zcMax);