diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-22 12:24:12 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-22 12:24:12 +0200 |
| commit | cbbe8d66cdd4cd8d59e20bb162a73e39bc0efe3e (patch) | |
| tree | ef93403b9cda406564cf0833d41d4991e737a2c6 /mystringlistunit.pas | |
| parent | e7bda379fcc5ce66a9b2974eaa7585c6df2bd141 (diff) | |
| download | units-cbbe8d66cdd4cd8d59e20bb162a73e39bc0efe3e.tar.xz | |
neuen überladenen constructor eingeführt
Diffstat (limited to 'mystringlistunit.pas')
| -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; |