From 71a0a0f09928b1ab788daa9674e667fedee0afe1 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 15 Mar 2017 07:40:48 +0100 Subject: bugfix --- emails.res | Bin 138696 -> 138936 bytes unit1.lfm | 2 +- unit1.pas | 4 +++- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/emails.res b/emails.res index e994dfa..4ff746d 100644 Binary files a/emails.res and b/emails.res differ diff --git a/unit1.lfm b/unit1.lfm index 1724fbd..385e5ec 100644 --- a/unit1.lfm +++ b/unit1.lfm @@ -11,7 +11,7 @@ object Form1: TForm1 OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow - LCLVersion = '1.6.2.0' + LCLVersion = '1.6.4.0' object Memo1: TMemo Left = 0 Height = 584 diff --git a/unit1.pas b/unit1.pas index 835bb19..84ef36f 100644 --- a/unit1.pas +++ b/unit1.pas @@ -90,8 +90,10 @@ begin raise exception.create(''''+s+''' ist kein gültiger Wert für ''Ton geben'' (ja|nein)!'); s:=sl.grepFirst('^gültiger\s+Adressat\s*='); - if s<>'' then + if s<>'' then begin + erstesArgument(s,'='); ga:=s; + end; sl.free; end; -- cgit v1.2.3-70-g09d2