Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
4-95176
Sirus
2003-04-01 08:58
2003.05.29
Как открыть форму из DLL немодально???


1-94959
gary5555
2003-05-18 13:23
2003.05.29
Как распознать первый и второй щелчок мыши по кнопке?!?!


14-95111
iskatel
2003-05-12 12:39
2003.05.29
Высокая духовность. Что это.


14-95022
vajo
2003-05-13 15:16
2003.05.29
Улучшение зрения. (эта ветка уже была)


3-94728
DmitryNekl
2003-05-06 18:14
2003.05.29
ADO и SQL (вопрос по SQL)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский