wieso machst du überhaupt diese if verschachtelung, denn so wie dus hast werden die eh alle abgearbeitet
Delphi-Quellcode:
host:='www.google.de';
code := ping(host,hopcount,rtt,ipad);
if code = 0 then begin // ping kam an
shape1.Brush.color := cllime;
end else
shape1.Brush.color := clred;
host:='www.microsoft.com';
code := ping(host,hopcount,rtt,ipad);
if code = 0 then begin // ping kam an
shape2.Brush.color := cllime;
end else
shape2.Brush.color := clred;
usw...
so gehts doch auch oder nicht? und wenn du alle deine brushes vorher rot machst dann kannst du dir den else teil auch sparen.
5 pings gesammt oder 5 pings pro adresse?