Скачать: CL | DM;

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;

---

← →
fedor12345 ©   (2009-05-24 10:53) [4]

Сделал сам

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c