Прошу объяснить StringGrid

[Sairox]

Добрый день! Уважаемые форумчане. Помогите пожалуйста новичку разобраться со StringGrid. Написал Пинговалку программа рабочая. Но в StringGrid когда считал последнюю ячейку и выдал результат при нажатии на клик пытается считывать дальше ячейки которых нет и выдаёт ошибку, а нужно чтобы он начинал сначала всё считывать. Я понимаю должен быть цикл , но не пойму как это сделать???

[p51x]

так вроде там же от 0 до количество-1, а у вас с 1...

[Sairox]

procedure TForm2.Button1Click(Sender: TObject);
var ABuffer:string;
begin
     Form2.IdIcmpClient1.Host:=memo2.Lines.Strings[x];
                    IdIcmpClient1.Ping(ABuffer);

end;




procedure TForm2.Button2Click(Sender: TObject);
var
  L,A : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile('print.conf');
  A :=TStringList.Create;
  A.LoadFromFile('ip.conf');
  StringGrid1.ColWidths[0] := 100;
  StringGrid1.ColWidths[1] := 100;
  StringGrid1.Cells[0,0] := 'Name';
  StringGrid1.Cells[1,0] := 'IP';
  StringGrid1.Cells[2,0] := 'Status';

  For I := 0 To L.Count -1 Do
    Begin
        StringGrid1.RowCount:= StringGrid1.RowCount+1;
       StringGrid1.Cells[0,i+1] := L[i];
       StringGrid1.Cells[1,i+1] := A[i];

    End;
  L.Free;
 //StringGrid1.RowCount:= StringGrid1.RowCount-1;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Memo2.Lines.LoadFromFile('ip.conf');

end;

procedure TForm2.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
x:=x+1;
Memo1.Lines.Add ('Host:'+Form2.IdIcmpClient1.Host);
Memo1.Lines.Add ('Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));


          begin
  if AReplyStatus.MsRoundTripTime < 2000 then StringGrid1.Cells[2,x]:='В сети'
  else  StringGrid1.Cells[2,x]:='Не в сети'
end;

          end;


end.

Так вроде стоит For I := 0 To L.Count -1 Do

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Sairox

Так вроде стоит For I := 0 To L.Count -1 Do

это ЗАПОЛНЕНИЕ StringGrid

кстати, RowCount я бы рекомендовал вынести из цикла:

 StringGrid1.RowCount:= L.Count+1;
 For i := 0 To L.Count -1 Do
    Begin
       StringGrid1.Cells[0,i+1] := L[i];
       StringGrid1.Cells[1,i+1] := A[i];
    End;

и ещё будет ошибка, если число строк в файлах print.conf и ip.conf разное.
А ещё, если Вы StringList'ы создаёте через Create(), то их нужно ОБЯЗАТЕЛЬНО очистить, чтобы не было утечек памяти.

но это не суть.

Вы когда пингуете, данные берёте из Грида по переменной X?
Так где проверка на то, что X не вылезла за пределы?!

[Sairox]

Да спасибо насчет файлов знаю если они будут разные то работать не будет.
Очистку допишу это не проблема.
Да грид беред данные из X
Но вот как сделать эту проверку и чтобы он не считывал дальше колонки я не могу понять.

[Serge_Bliznykov]

Сообщение от Sairox

Но вот как сделать эту проверку и чтобы он не считывал дальше колонки я не могу понять.

например,

procedure TForm2.Button1Click(Sender: TObject);
var ABuffer:string;
begin
     if x>=memo2.Lines.Count Then ShowMessage('Кончились строчки в Memo2')
     else begin
        IdIcmpClient1.Host:=memo2.Lines.Strings[x];
        IdIcmpClient1.Ping(ABuffer);
     end;
end;

[Sairox]

Огромное человеческое спасибо вам добрый человек с меня пиво.
А еще одно забыл и как лучше сделать чтобы он начинал пинговать заново адреса с 1 строчки без перезапуска приложения.

[Serge_Bliznykov]

Сообщение от Sairox

А еще одно забыл и как лучше сделать чтобы он начинал пинговать заново адреса с 1 строчки без перезапуска приложения.

попробуйте так:

procedure TForm2.Button1Click(Sender: TObject);
var ABuffer:string;
begin
     if x>=memo2.Lines.Count Then x:=0;
     IdIcmpClient1.Host:=memo2.Lines.Strings[x];
     IdIcmpClient1.Ping(ABuffer);
end;

[Sairox]

Большое спасибо всё работает! Извините за тупые вопросы!!!!! :-). Приятно, что остались люди которые помогают!

[Serge_Bliznykov]

ничего страшного. Всегда пожалуйста!