Обработка данных в многомерных массивах(Delhpi)

Ксения19

Помогите пожалуйста,не могу понять где ошибка Удалить самый левый столбец, в котором встретиться четный отрицательный элемент.
if (radiobutton3.Checked) then 
begin  
with stringgrid1 do begin
i:=1;
while (i<=colcount-1) do 
begin
fl:=0;
for j:=1 to rowcount-1 do
if (strtoint(cells[i,j])>0)and(strtoint(cells[i,j]) mod 2 = 1) then begin fl:=1; 
break;
end; 
GridRemoveColumn(stringgrid1,i+1);// удаление столбца        i:=i-1;
end;
i:=i+1;
end;
1 ответ

Ксения19

Проверять на четность надо не значение ячейки а индекс этой ячейки и потом четным считается элемент который при делении на 2 даст 0 а не 1. Можно еще использовать готовую паскалевскую функцию Ord() для проверки четности.