Hallo,
mit der Methode "dreist alle Fehler ignorieren:"
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
if listbox1.ItemIndex=-1
then begin
listbox1.ItemIndex:=0;
listbox2.ItemIndex:=0;
end;
idi1.Host := listbox1.Items[listbox1.ItemIndex];
idi1.Port:= strtoint(form1.ListBox2.Items[form1.ListBox2.ItemIndex]) ;
try
idi1.Ping();
except
on e :
Exception do begin
// hier eventuell die Fehler in eine Datei schreiben
// oder in einem Memo sammeln oder hier einfach keinen
// weiteren Quelltext einfügen.
// Dann werden alle Fehler ignoriert.
// Die Fehlermeldung steht in e.Message.
end;
end;
end;