Hallo liebe Leute!
Ich bin derzeit mit einem Programm beschäftigt,dass eine Anzahl Servers
controliert(Pingen).
Ich habe eine Stringgrid mit einer Menge Server-namen
darin, und mein Programm läuft durch die Zelle um die Server-namen zu
controlieren.
Aber
Ich habe 4 Reihen in meiner Stringgrid, wovon die vierte Reihe
nur halb gefühllt ist, doch mein Programm kontroliert auch
de leeren Zelle von der vierte Reihe.
Weiss vieleicht jemand von euch, wie man dass Problem auflösen kann, so
dass mein Programm nur die Zelle kontroliert die angefüllt sind mit Text?
Im voraus, vielen Dank!
Delphi-Quellcode:
procedure TFormServers.FormCreate(Sender: TObject);
begin
ProgressBar1.Smooth := True;
StartWaiting;
end;
procedure TFormServers.CheckCurrentServer;
begin
with GridServers do
CheckServer(Cells[Col,Row]);
end;
function TFormServers.IsWaiting: Boolean;
begin
Result := ProgressBar1.Position < ProgressBar1.Max;
end;
procedure TFormServers.ContinueWaiting;
begin
ProgressBar1.StepIt;
end;
procedure TFormServers.Timer1Timer(Sender: TObject);
begin
if IsWaiting then
ContinueWaiting
else begin
CheckCurrentServer;
NextServer;
end;
end;
procedure TFormServers.StartWaiting;
begin
ProgressBar1.Position := ProgressBar1.Min; FirstServer;end;
procedure TFormServers.NextServer;
begin
with GridServers do
if Col < Pred(ColCount) then Col := Succ(Col)
else if Row < Pred(RowCount) then
begin
Col := FixedCols;
Row := Succ(Row);
end
else StartWaiting;
end;
procedure TFormServers.FirstServer;
begin
with GridServers do
begin
Row := FixedRows;
Col := FixedCols;
end;
end;
procedure TFormServers.CheckServer(const AServer: string);
begin
Caption := 'Checking Server: ' + AServer + ' ...';
end;
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]