Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизПомогите сложить числа в StringGrid е Найти похожие ветки
← →
spater (2003-05-17 12:37) [0]Помогите разобраться. Delphi изучаю 3-ю неделю и немогу понять как можно сложить числа в StringGrid"е.
В общем имеется StringGrid - 4 столбца и N строк.
Первый столбец я пронумеровал:
god:=StrToInt(Edit1.text);
StringGrid1.RowCount:=god;
for i:=1 to 100 do
StringGrid1.Cells[0,i-1]:=inttostr(i);
Думаю правильно, первый столбец пронумеровался 1,2, и т.д. до Edit1.tex
Во втором столбце у меня числа: 124.44, 34.6678, и т.д.
1. Их нужно сложить и поделить на колличество строк.
2.Сложить квадраты чисел и поделить на колличество строк.
← →
Anatoly Podgoretsky (2003-05-17 12:43) [1]В StringGrid содержатся строки, преобразовывай в число и делай математические опперации, затем обратно.
← →
spater (2003-05-17 13:16) [2]Почему вот это не работает?
begin
s:=0 ;
for i:=0 to n do
begin
my[i]:=strtofloat(stringgrid1.Cells[1,i]);
s:=s+my[i]
end;
label7.caption:=floattostr(s);
end;
← →
Skier (2003-05-17 13:21) [3]
> Почему вот это не работает?
1) Что значит не работает ? Подробности !
2) Что есть N, my и s ?
← →
Dm9 (2003-05-17 13:56) [4]procedure TForm1.BitBtn1Click(Sender: TObject);
var S : Real;
i : Word;
begin
S := 0;
for i := 0 to StringGrid1.RowCount - 1 do
begin
try
S := S + StrToFloat (StringGrid1.Cells [1,i]);
except
end;
end;
MessageBox (0, PChar (FloatToStr (S)), "?????????", MB_OK);
end;
← →
spater (2003-05-17 13:57) [5]n -число строк, n:= StrToInt(Edit1.text);
s -это сумма чисел в столбце
my -массив этих самых чисел...
Я наверное что то не так делаю, может нужно по другому?
← →
Dm9 (2003-05-17 14:01) [6]Во-первых, вместо вопросиков надо подставить слово "результат"...
А во-вторых, ошибка может быть в том, что у тебя настройках стоит разделитель целой и дробной части запятая, а ты используешь точку. Или наоборот. Посмотри, как у тебя. Панель управления|Язык и стандарты.
← →
Skier (2003-05-17 14:03) [7]>spater (17.05.03 13:57)
1) for i := 0 to n - 1 do
2) И хорошо бы всё-таки ответить на вопрос см. Skier © (17.05.03 13:21) 1)
← →
spater (2003-05-17 14:05) [8]СПАСИБО!!! Dm9 © ВСЕ получилось!!!
теперь квадраты только сделать...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c