| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
StringGrid [D7]
fedor12345 © (2009-05-24 10:22:00)Доброго времени суток!
Нужна помощь по одному вопросу, не работает вот такая процедура, ругается видимо на перевод, ошибка вылезает в рантайме: 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;
fedor12345 (2009-05-24 10:53:00) [1]Сделал сам
fedor12345 (2009-05-24 10:44:00) [2]да спасибо 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;
Palladin (2009-05-24 10:29:00) [3]
> в таблице находятся цифры от -50 до 50
по горизонтали чтоли?
AIK (2009-05-24 10:29:00) [4]
> for j:=2 to StringGrid1.RowCount do begin
for j:=2 to StringGrid1.RowCoun -1
| |
