flush in protokollunit.pas eingebaut

1 files changed, 7 insertions, 1 deletions

diff --git a/protokollunit.pas b/protokollunit.pas
index 74e9caf..8b1cf53 100644
--- a/protokollunit.pas
+++ b/protokollunit.pas
@@ -25,9 +25,10 @@ type
     constructor create(dateiname: string); overload;
     constructor create(elter_: tProtokollant; besitzer: string); overload;
     destructor destroy; override;
+    procedure destroyall;
     procedure schreibe(s: string);
     procedure schreibe(s: string; tee: boolean);
-    procedure destroyall;
+    procedure spuelen;
   end;
 
 
@@ -110,5 +111,10 @@ begin
     writeln(bes+s);
 end;
 
+procedure tProtokollant.spuelen;
+begin
+  flush(sDat^.datei);
+end;
+
 end.