From 279ad688c87699cf71feb0584831a21e78f8bf1e Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 18 Dec 2017 16:21:43 +0100 Subject: mystringlistunit.pas: ausführlichere Fehlermeldung MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- mystringlistunit.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mystringlistunit.pas b/mystringlistunit.pas index e0b7fe2..7698e26 100644 --- a/mystringlistunit.pas +++ b/mystringlistunit.pas @@ -512,7 +512,7 @@ begin delete(i); t:=erstesArgument(s,':'); if (length(t)=0) or (t[1]<>'$') then begin - gibAus('Schleifenvariable muss mit ''$'' beginnen!',3); + gibAus('Schleifenvariable muss mit ''$'' beginnen ,'''+t+''' tut das nicht!',3); exit; end; -- cgit v1.2.3-70-g09d2