StringGrid

← →
fedor12345 © (2009-05-24 10:22) [0]

Доброго времени суток!
Нужна помощь по одному вопросу, не работает вот такая процедура, ругается видимо на перевод, ошибка вылезает в рантайме: is not a valid integer value в таблице находятся цифры от -50 до 50. Заранее благодарен.
procedure TForm1.Button2Click(Sender: TObject);
var i,j,max:integer;
begin
i:=1;
max:=strtoint(StringGrid1.cells[i,1]);
for j:=2 to StringGrid1.RowCount do begin
if max<strtoint(StringGrid1.cells[i,j]) then max:=strtoint(StringGrid1.cells[i,j])
end;
max:=strtoint(StringGrid1.cells[i,1]);
Button1.Caption:=inttostr(max);

end;

← →
Palladin © (2009-05-24 10:29) [1]

> в таблице находятся цифры от -50 до 50

по горизонтали чтоли?

← →
AIK © (2009-05-24 10:29) [2]

> for j:=2 to StringGrid1.RowCount do begin

for j:=2 to StringGrid1.RowCoun-1

← →
fedor12345 © (2009-05-24 10:44) [3]

да спасибо AIK

Если знаете подскажите пожалуйста как реализовать замену максимального числа каждой строки на 0

максимум я вот найти могу а заменить на 0 его не могу (
procedure TForm1.Button2Click(Sender: TObject);
var i,j,max:integer;
begin
max:=strtoint(StringGrid1.cells[1,1]);
for i:=1 to StringGrid1.colcount-1 do begin
for j:=1 to StringGrid1.rowCount-1 do begin
if max<strtoint(StringGrid1.cells[j,i]) then max:=strtoint(StringGrid1.cells[j,i])
if max

end;

Сделал сам

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