* Implement flushbuffer abstract method in TFiler (part 2) (bug ID 33062)

git-svn-id: trunk@38656 -

rtl/objpas/classes/classesh.inc

@@ -1493,6 +1493,7 @@ type
     constructor Create(ADriver: TAbstractObjectWriter);
     constructor Create(Stream: TStream; BufSize: Integer);
     destructor Destroy; override;
+    Procedure FlushBuffer; override;
     procedure DefineProperty(const Name: string;
       ReadData: TReaderProc; AWriteData: TWriterProc;
       HasData: Boolean); override;

rtl/objpas/classes/writer.inc

@@ -505,6 +505,11 @@ begin
   inherited Destroy;
 end;
 
+procedure TWriter.FlushBuffer;
+begin
+  Driver.FlushBuffer;
+end;
+
 function TWriter.CreateDriver(Stream: TStream; BufSize: Integer): TAbstractObjectWriter;
 begin
   Result := TBinaryObjectWriter.Create(Stream, BufSize);