Ячейки

← →
Silica © (2006-02-05 11:16) [0]

Нужно в StringGrid (таблице) подсчитать количество ячеек в нулевой строке, но без тех ячеек, которые имеют значение "-1". Следующий код подсчитывает количество, но иногда выводит неправильное значение. Всего ячеек 10 в строке. Иногда вместо 10, выводится 9, вместо 7 - 6. Иногда правильно выводит.

procedure TForm1.Button3Click(Sender: TObject);
var x, y : integer;
begin
y := 0;
for i := 0 to k do
begin
if stringgrid1.Cells[i,0] = "-1" then
y := y + 1;
x := stringgrid1.ColCount - y;
label1.Caption := inttostr(x);
end;
end;

Подскажите, пожалуйста, что не так.

← →
Palladin © (2006-02-05 12:01) [1]

попробуй так

procedure TForm1.Button3Click(Sender: TObject); var i,n : integer; begin n := 0; for i := 0 to k do begin if trim(stringgrid1.Cells[i,0]) = "-1" then Inc(n); end; label1.Caption := inttostr(stringgrid1.ColCount-n); end;

← →
Плохиш © (2006-02-05 12:48) [2]

Может стоит без лишних телеодвижений задачу реализовывать?
procedure TForm1.Button3Click(Sender: TObject); var i,n : integer; begin n := 0; for i := 0 to k do if trim(stringgrid1.Cells[i,0]) <> "-1" then Inc(n); label1.Caption := inttostr(n); end;

← →
Плохиш © (2006-02-05 12:50) [3]

Хотя, пардон, но переменная "k" как-то в условия задачи [0] не вписывается, если её значение не равно количеству столбцов в гриде.

← →
Silica © (2006-02-05 14:12) [4]

> Palladin

> Плохиш

все равно ошибается иногда на единицу. с первой загрузки показывает правильно, но при последующих может ошибаться. У меня в таблице числа генерируются(button 1), затем удаляются совпадения(button2), заменяясь на "-1" и выводится отчет(button3).
k := 10. - это константа.

← →
Apollon_604 (2006-02-05 17:35) [5]

Попробуй отладчик использовать

> k := 10. - это константа.

Может лучше вместо этого stringgrid1.ColCount - 1 использовать.

А в общем-то рекомендую к [5] прислушаться.

Ячейки Найти похожие ветки