if...then...else

[Serge_Bliznykov]

Цикл выполняется полностью независимо от того, чекнут ли чекбокс или нет(

о!!
посмотрел на код.

Form1.advstringgrid1.GetCheckboxState(0, I, state)

что это за I ?! Вы хотите проверить чекбокс в КАЖДОЙ строке грида?!
Ну так тогда проверка должна быть ВНУТРИ цикла по строкам! (предыдущий вариант )

Если же Вы хотите чего-то другого, то, простите, я Вас не понимаю!
У Вас есть грид, в некоторых строчках грида стоят чекбоксы. Что Вы хотите получить?!

[_ZixeL_]

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

У Вас есть грид, в некоторых строчках грида стоят чекбоксы. Что Вы хотите получить?!

Есть грид, чекбоксы стоят от 1 до -1 строках в 0 колонке.
Мне надо выполнять некое действие только для чекнутых строк(row).
В данном случае выполнять цикл. Но, если ни одна строка не чекнута, то выполнять другое действие вне цикла.

[Slym]

AnySelected:=false;
for I:=FixedRows to RowCount do
begin
  if GetCheckboxState(0,I,State) then
  begin
    AnySelected:=true;
    ...
  end;
end;
if not AnySelected then
begin
...
end;

[_ZixeL_]

Slym, спасибо за ответ. Но я пользуюсь advstringgrid от TMS.Там немного по другому с чекбоксами. Я чекбоксы создаю так

for i := 2 to advstringgrid1.RowCount -1 do
begin
advstringgrid1.AddCheckBox(0,i,false,false);
end;

[superedward]

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

Делал так

if Form1.advstringgrid1.GetCheckboxState(0, I, state) = state then
begin
 for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do  begin

И не работало. Никакой реакции вообще.

Может быть дело в том, что вы пытаетесь использовать переменную цикла I вне цикла?

[_ZixeL_]

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

Может быть дело в том, что вы пытаетесь использовать переменную цикла I вне цикла?

Да по-разному пытался уже(
блин, и как теперь быть?

[Slym]

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

[Serge_Bliznykov]

В данном случае выполнять цикл. Но, если ни одна строка не чекнута, то выполнять другое действие вне цикла.

код в сообщении #13 решает эту задачу!

[_ZixeL_]

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

код в сообщении #13 решает эту задачу!

Можно поподробней?

[_ZixeL_]

Спасибо всем. Особенно Slym"у

Решил так

procedure TNewThread.Execute;
var
  other: string;
  i,p: integer;
  State: Boolean;
  AnySelected: boolean;
begin
  for I:= Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount-1 do begin
        if Form1.advstringgrid1.GetCheckboxState(0, i, state) = state then
      begin
       AnySelected:=true;
      other := datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address=' + Form1.advstringgrid1.Cells[2, i]);
      //2  Страна
      Form1.advstringgrid1.Cells[13, i] := Pars('name="T2" size="20" value="', other, '"></td>');
      //4 Регион
      if Pos('name="T8" size="20" value="n/a ()">', other) = 0 then
        Form1.advstringgrid1.Cells[14, i] := Pars('name="T8" size="20" value="', other, '"></td>')
      else
      begin
        Form1.advstringgrid1.Cells[14, i] := ' n/a';
      end;
      //3  Город
      Form1.advstringgrid1.Cells[15, i] := Pars('name="T9" size="20" value="', other, '"></td>');
      //4 Провайдер
      Form1.advstringgrid1.Cells[12, i] := Pars('name="T7" size="20" value="', other, '"></td>');
      //----
      end;

  end;
  if not AnySelected then
  showmessage('123');

end;