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