diff options
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 18 |
1 files changed, 10 insertions, 8 deletions
@@ -113,9 +113,8 @@ begin t:=copy(t,2,length(t)-2); if t='ip' then pruefListe[length(pruefliste)-1]:=tTestIp.create else if t='ping' then pruefListe[length(pruefListe)-1]:=tTestPing.create -(* else if t='dnslookup' then pruefListe[length(pruefListe)-1]:=TTestDNSLookup.create(Form1) - else if t='ftpcmp' then pruefListe[length(pruefListe)-1]:=TFtpFileCompare.create(Form1) - else if t='ftpdate' then pruefListe[length(pruefListe)-1]:=TFtpDate.create(Form1) + else if t='remcmp' then pruefListe[length(pruefListe)-1]:=TRemoteFileCompare.create +(* else if t='ftpdate' then pruefListe[length(pruefListe)-1]:=TFtpDate.create(Form1) else if t='httpcmp' then pruefListe[length(pruefListe)-1]:=THttpCompare.create(Form1) else if t='checkprocess' then pruefListe[length(pruefListe)-1]:=TCheckProcess.create(Form1) *) else begin @@ -179,11 +178,14 @@ begin j:=4; end; For i:=0 to length(pruefListe)-1 do - if (j mod 4 = pruefListe[i].status) and - (pruefListe[i].bedingungErfuellt(stati)) and - odd(j shr (2+Byte(pruefListe[i].ernst))) then begin - s:=s + ','#$0D#$0A + pruefListe[i].fehlerNachricht; - memo1.lines.add(pruefListe[i].fehlerNachricht); + if pruefListe[i].bedingungErfuellt(stati) then begin + if (j mod 4 = pruefListe[i].status) and + odd(j shr (2+Byte(pruefListe[i].ernst))) then begin + s:=s + ','#$0D#$0A + pruefListe[i].fehlerNachricht; + memo1.lines.add(pruefListe[i].fehlerNachricht); + end + else + memo1.lines.add('nicht: '+pruefListe[i].fehlerNachricht); end; s:=s+'!'#0; delete(s,1,3); |