Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

Помогите сложить числа в 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
3-94704
lightix
2003-05-07 16:02
2003.05.29
TQuery - какое событие выполняется для каждой записи?


3-94660
P.Kert
2003-05-07 10:58
2003.05.29
Необходимо вставить BLOB !!!


14-95010
Arch-vile
2003-05-12 22:50
2003.05.29
Мастера Делфи


1-94944
edicon
2003-05-18 01:42
2003.05.29
Формат Даты


1-94935
adogg
2003-05-17 16:29
2003.05.29
Memo