Цикл StringGrid

[Aleksandr69]

Начал изучать Delphi недавно,пока только учусь все в проге сделал разобрался вот с циклами пока не очень получается.



Нужно брать значения с StringGrid1 с первой колонки начиная с первой строки(имя домена) и подсовывать его сюда YaTic1.URL:= с задержкой в 10 сек получаем параметры и вставляем их в 2,6,8 колонки и если после проверки параметров в колонке 2 в любой строке 0 то удаляем строку.

написал ручной способ работает вот с циклом не могу пока сделать

procedure TForm3.Button6Click(Sender: TObject);

var
CatInfo: TYaCaInfo;

begin

YaTic1.URL:=StringGrid1.Cells[1, 1];      //ссылка на домен
StringGrid1.Cells[2, 1]:=IntToStr(YaTic1.TIC); //выводим тыц
if YaTic1.inyaca then
StringGrid1.Cells[6, 1]:='в каталоге'   //ян каталог
else
StringGrid1.Cells[6, 1]:='Не в каталоге';

StringGrid1.Cells[8, 1]:=IntToStr(YaTic1.Rang); //ян ранг
CatInfo:=YaTic1.YacaInfo;     //

[Stilet]

var
CatInfo: TYaCaInfo;
i:integer;
begin
for i:=1 to StringGrid1.RowCount-1 do begin
YaTic1.URL:=StringGrid1.Cells[1, i];      //ссылка на домен
StringGrid1.Cells[2, i]:=IntToStr(YaTic1.TIC); //выводим тыц
if YaTic1.inyaca then
StringGrid1.Cells[6, i]:='в каталоге'   //ян каталог
else
StringGrid1.Cells[6, i]:='Не в каталоге';

StringGrid1.Cells[8, i]:=IntToStr(YaTic1.Rang); //ян ранг
CatInfo:=YaTic1.YacaInfo;     //
end;

Так что ли?

[Aleksandr69]

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

var
CatInfo: TYaCaInfo;
i:integer;
begin
for i:=1 to StringGrid1.RowCount-1 do begin
YaTic1.URL:=StringGrid1.Cells[1, i];      //ссылка на домен
StringGrid1.Cells[2, i]:=IntToStr(YaTic1.TIC); //выводим тыц
if YaTic1.inyaca then
StringGrid1.Cells[6, i]:='в каталоге'   //ян каталог
else
StringGrid1.Cells[6, i]:='Не в каталоге';

StringGrid1.Cells[8, i]:=IntToStr(YaTic1.Rang); //ян ранг
CatInfo:=YaTic1.YacaInfo;     //
end;

Так что ли?

так работает но пытается все сразу проверить ,ставил в конце таймер он все равно все сразу проверяет а потом задержка.

нужно после каждой подстановки YaTic1.URL: делать задержку и заполнять таблицу,короче каждый цикл должен быть с паузой 10 сек и выводом результатов в таблицу .Что бы было видно визуально что прога работает,строку проверил- вывел результат-пауза итд

да еще я писал что если результат StringGrid1.Cells[2, i]:=IntToStr(YaTic1.TIC); = 0 то удалять строку но это я думаю можно сделать вторым циклом

[Stilet]

Ставь в конце цикла

Application.ProcessMessages;Sleep(100);

[Aleksandr69]

работает огромное спасибо,подскажите как сделать цикл на проверку и удаление строки так как я писал выше.

[Aleksandr69]

все сделал будет так

if StringGrid1.Cells[2, i] = '0'  then

StringGrid1.Cells[5, i]:='Нужно удалить'   //ян каталог
else
StringGrid1.Cells[5, i]:='Не удалять';