diff options
| -rw-r--r-- | protokollunit.pas | 8 |
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. |