Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
12. Sep 2003
Ich schreibe halt schneller. :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
12. Sep 2003
OK, gebe mich geschlagen. :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
12. Sep 2003
procedure TForm1.FormCreate(Sender: TObject);
begin
for i := ListBox1.Items.Count - 1 downto 0 do begin
IdIcmpClient1.Host := ListBox1.Items.Strings;
IdIcmpClient1.Ping(IntToStr(timeout));
ListBox1.Delete(i);
end;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
12. Sep 2003
Sakura hat recht. :oops:
Und für die MultiSelect Variante:
procedure TForm1.FormCreate(Sender: TObject);
begin
for i := 0 to ListBox1.Items.Count - 1 do begin
if ListBox1.Selected then begin
IdIcmpClient1.Host := ListBox1.Items.Strings;
IdIcmpClient1.Ping(IntToStr(timeout));
end;