neuen überladenen constructor eingeführt

1 files changed, 7 insertions, 1 deletions

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 6f3fc23..9693fca 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -24,7 +24,8 @@ type
     line:  longint;
     prot:  tProtokollant;
   public
-    constructor create(protokollant: tProtokollant; name: string);
+    constructor create; overload;
+    constructor create(protokollant: tProtokollant; name: string); overload;
     procedure loadFromFile(const s: ansiString); override;
     procedure loadFromGz(const s: ansiString);
     procedure saveToGz(const s: ansiString);
@@ -78,6 +79,11 @@ end;
 
 // tMyStringlist ***************************************************************
 
+constructor tMyStringlist.create;
+begin
+ create(nil,'');
+end;
+
 constructor tMyStringlist.create(protokollant: tProtokollant; name: string);
 begin
  inherited create;