Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.07.19;
Скачать: 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 вся ветка

Текущий архив: 2009.07.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
2-1243280665
HF-Trade
2009-05-25 23:44
2009.07.19
Преобразование доменного имени в IP


2-1243338190
fox77
2009-05-26 15:43
2009.07.19
api функция цвет TBrush


15-1242723637
cyber-pilot
2009-05-19 13:00
2009.07.19
Пересечение двух прямоугольников


15-1242376187
oldman
2009-05-15 12:29
2009.07.19
При загрузке ХР не может загрузить "текущий профиль пользователя"


15-1242620348
vajo
2009-05-18 08:19
2009.07.19
SOLTEK SL-65EP T