Stringgrid (Delphi)

[Елена93]

В Stringgrid нужно ввести вручную числа и вывести в edit или label номера тех строк, все числа которые четные. У меня никак не получилось. Заранее спасибо.

[VIK_aka_TOR]

Сообщение от Елена93

У меня никак не получилось.

показывайте ваши результати неполучившиеся... подправим...

[whatever]

Сообщение от Елена93

В Stringgrid нужно ввести вручную числа и вывести в edit или label номера тех строк, все числа которые четные. У меня никак не получилось. Заранее спасибо.

В свойствах stringgrid1 тыкаем options и меняем значение goEditing на True. Это для возможности редактирования StringGrid'а.

Потом проверяем строки

begin
  for i:=1 to stringgrid1.RowCount-1 do
    begin
      od:=true;
      for j:=1 to stringgrid1.ColCount-1 do
        if not odd(strtoint(stringgrid1.Cells[j,i])) then
          begin
            od:=false;
            break;
          end;
      if od then
        edit1.Text:=edit1.Text+' '+inttostr(i);
    end;
end;

где od:boolean.