From cbbe8d66cdd4cd8d59e20bb162a73e39bc0efe3e Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 22 Oct 2015 12:24:12 +0200 Subject: neuen überladenen constructor eingeführt MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- mystringlistunit.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'mystringlistunit.pas') 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; -- cgit v1.2.3-70-g09d2