diff options
author | Erich Eckner <git@eckner.net> | 2016-03-29 11:07:19 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2016-03-29 13:54:52 +0200 |
commit | 12c2078ce975f07e7a0db8e33abf45f1b269b64c (patch) | |
tree | fadd54d3e9f7858c37544bd99947566ac61a7261 | |
parent | ec6f552732f8a4b213e535e283609838fcefe940 (diff) | |
download | epost-12c2078ce975f07e7a0db8e33abf45f1b269b64c.tar.xz |
kleine Aufhübschungen
-rw-r--r-- | epostunit.pas | 11 | ||||
-rw-r--r-- | typenunit.pas | 2 |
2 files changed, 7 insertions, 6 deletions
diff --git a/epostunit.pas b/epostunit.pas index 581cccc..5e7f773 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -5720,9 +5720,11 @@ end; procedure tBefehlThread.stExecute; begin if assigned(p) then begin - gibAus('externen Befehl ausführen ... '+inttostr(belegterSpeicher),3); - gibAus(p.Executable,3); - gibAus(p.Parameters.text,3); + gibAus( + 'externen Befehl ausführen ... '+inttostr(belegterSpeicher)+#10+ + p.Executable+#10+ + p.Parameters.text, + 3); p.Execute; gibAus('... fertig!',1); end @@ -5757,8 +5759,7 @@ begin inputs[i]:=tPipeInputDateiInfo.create(inps[i]); continue; end; - gibAus('unbekannter InputDateiInfo-Typ ...',3); - halt(1); + fehler('unbekannter InputDateiInfo-Typ ...'); end; gibAus('LeseThread erzeugt',1); suspended:=false; diff --git a/typenunit.pas b/typenunit.pas index a375362..fb2060f 100644 --- a/typenunit.pas +++ b/typenunit.pas @@ -939,7 +939,7 @@ begin if schlussBeiWenigInhalt then fehler('Sehr geringer Fensterdurchschnitt: '+floattostr(fenAvg)+' ('+dumpParams+')!') else - gibAus('Sehr geringer Fensterdurchschnitt: '+floattostr(fenAvg)+' ('+dumpParams+')!',3); + gibAus('Sehr geringer Fensterdurchschnitt: '+floattostr(fenAvg)+' ('+dumpParams+')! Ich mache aber trotzdem weiter.',3); end; end; |