Delphi-Quellcode:
var
stream1, stream2: TJclBufferedStream;
begin
stream1 := TJclBufferedStream.Create(TFileStream.Create('c:\test.unl', fmOpenRead), True);
stream2 := TJclBufferedStream.Create(FileStream.Create('c:\test2.unl', fmCreate), True);
... der Rest bleibt gleich
TJclBufferedStream versklavt den angegebenen Stream. Das True in Konstruktor setzt OwnsStream womit dann beim Free auch der versklavte Stream freigegeben wird.
Damit braucht man keine separate Variable fuer den Sklaven.