Сумма ячеек - Общие вопросы Delphi

artemavd · 23.07.2008, 19:49

Подскажите пожалуйста как мне в StringGrid-e сложить между собой значения, которые находятся в определенных ячейках и разделить на константу? НАпример, в ячейке SG3.Cells[2,1] значение равно 2, в ячейке SG3.Cells[3,1] значение равно 3, в ячейке SG3.Cells[4,1] значение равно 5, в ячейке SG3.Cells[5,1] значение равно 6. Константа равна 4. В новую ячеку должен быть записан результат равный четырем. Пробовал так: SG3.Cells[7,1]:=SG3.Cells[2,1]+SG3.Cells[3,1]+SG3.Cells[4,1]+SG3.Cells[5,1]; В новую ячейку он мне записывает подряд числа из тех ячеек. Пробовал так: SG3.Cells[7,1]:=(SG3.Cells[2,1]+SG3.Cells[3,1]+SG3.Cells[4,1]+SG3.Cells[5,1])/4; Не компилируется(( Помогите пожалуйста мне с этим и работа будет сделана)

Карась · 23.07.2008, 20:05

Цитата:

Пробовал так: SG3.Cells[7,1]:=SG3.Cells[2,1]+SG3.Cells[3,1]+SG3.Cells[4,1]+SG3.Cells[5,1]; В новую ячейку он мне записывает подряд числа из тех ячеек.

Былоб странно еслиб он(компилятор) сделал чтото другое...
В ячейках храниться строковое значение.
Пиши так:

Код:

SG3.Cells[7,1] := StrToInt(SG3.Cells[2,1]) + StrToInt(SG3.Cells[3,1]) + ....

Хотя по уму нужно наисать цикл.

artemavd · 23.07.2008, 20:08

и если разделить на 4, то ответ будет в виде числа?)

Карась · 23.07.2008, 20:17

да... Только придётсяиспользовать тип Real.

artemavd · 23.07.2008, 20:20

Цитата:

Сообщение от Карась

Пиши так:

Код:

SG3.Cells[7,1] := StrToInt(SG3.Cells[2,1]) + StrToInt(SG3.Cells[3,1]) + ....

Я только что попробовал так написать, а он мне выдает ошибку внизу такую: "incompatible types:"string" and "integer" ". Это наверное потому что у меня данные в ячейки поступают из Label-ов, а они получают свои из Edit-ов, которые объявлены как real! Как быть? Как сделать, чтобы заработало?

Карась · 23.07.2008, 20:25

кидай архив с проеком...

artemavd · 23.07.2008, 20:40

Не могу, он большой (проект). 10 тысяч строк кода. 10 модулей. 10 форм. Должен же быть способ правильно сделать. Нада то всего одну процедуру правильно написать(((

Карась · 23.07.2008, 20:42

Цитата:

Сообщение от artemavd

Не могу, он большой (проект). 10 тысяч строк кода. 10 модулей. 10 форм. Должен же быть способ правильно сделать. Нада то всего одну процедуру правильно написать(((

Тоесть Вы написали такой проект и спрашиваете про какуюто там сумму ячеек????

puporev · 23.07.2008, 21:28

SG3.Cells[7,1] := FloatToStr(StrToInt(SG3.Cells[2,1]) + StrToInt(SG3.Cells[3,1]) + .... ) /4); Сделать форматирование по Вашему вкусу.

artemavd · 24.07.2008, 06:53

puporev, спсибо тебе большое!)) Карась, да! вот так вт!

23.07.2008, 19:49	#1
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	Сумма ячеек Подскажите пожалуйста как мне в StringGrid-e сложить между собой значения, которые находятся в определенных ячейках и разделить на константу? НАпример, в ячейке SG3.Cells[2,1] значение равно 2, в ячейке SG3.Cells[3,1] значение равно 3, в ячейке SG3.Cells[4,1] значение равно 5, в ячейке SG3.Cells[5,1] значение равно 6. Константа равна 4. В новую ячеку должен быть записан результат равный четырем. Пробовал так: SG3.Cells[7,1]:=SG3.Cells[2,1]+SG3.Cells[3,1]+SG3.Cells[4,1]+SG3.Cells[5,1]; В новую ячейку он мне записывает подряд числа из тех ячеек. Пробовал так: SG3.Cells[7,1]:=(SG3.Cells[2,1]+SG3.Cells[3,1]+SG3.Cells[4,1]+SG3.Cells[5,1])/4; Не компилируется(( Помогите пожалуйста мне с этим и работа будет сделана) Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

23.07.2008, 20:08	#3
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	и если разделить на 4, то ответ будет в виде числа?) Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

23.07.2008, 20:17	#4
Карась Участник клуба Регистрация: 26.10.2007 Сообщений: 1,244	да... Только придётсяиспользовать тип Real. Умом Россию не понять, пока не выпито ноль пять, А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром...

23.07.2008, 20:25	#6
Карась Участник клуба Регистрация: 26.10.2007 Сообщений: 1,244	кидай архив с проеком... Умом Россию не понять, пока не выпито ноль пять, А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром...

23.07.2008, 20:40	#7
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	Не могу, он большой (проект). 10 тысяч строк кода. 10 модулей. 10 форм. Должен же быть способ правильно сделать. Нада то всего одну процедуру правильно написать((( Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

23.07.2008, 21:28	#9
puporev Старожил Регистрация: 13.10.2007 Сообщений: 2,740	SG3.Cells[7,1] := FloatToStr(StrToInt(SG3.Cells[2,1]) + StrToInt(SG3.Cells[3,1]) + .... ) /4); Сделать форматирование по Вашему вкусу.

24.07.2008, 06:53	#10
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	puporev, спсибо тебе большое!)) Карась, да! вот так вт! Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
сумма заполненых ячеек	MaxZoa	Microsoft Office Excel	14	30.06.2008 13:31
Сумма	RIP VIP	Помощь студентам	8	02.05.2008 14:33
Сумма чисел	gamer123	Помощь студентам	2	19.01.2008 20:42
Сумма прописью в 1С	Aleksandr	Свободное общение	2	27.08.2007 15:59
сумма столбца	zetrix	БД в Delphi	1	01.11.2006 15:42