Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сложить Суммировать в StringGrid, Сложить числа вывести сумму колонки 
:(
    Опции темы
DenRip
Дата 13.8.2007, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 12.6.2007

Репутация: нет
Всего: нет
Проодлите код плиз
вот пример:

Код

String1.Cells[7,1]:= FloatTostr(переменная Integer+5);
String1.Cells[7,2]:= FloatTostr(переменная Integer+6);
String1.Cells[7,3]:= FloatTostr(переменная Integer+4);
String1.Cells[7,4]:= FloatTostr(переменная Integer+3);
String1.Cells[7,5]:= FloatTostr(переменная Integer+3);
String1.Cells[7,6]:= FloatTostr(переменная Integer+3);
String1.Cells[7,7]:= FloatTostr(переменная Integer+7);
String1.Cells[7,8]:= FloatTostr(переменная Integer+6);
String1.Cells[7,9]:= FloatTostr(переменная Integer+3);
String1.Cells[7,10]:= //  Здесь надо вывести сумму;


Можно содать переменную. присвоить ей сумму всех  переменных, после этого загнать в стринг,
а есть другой подход к ентому делу?
PM MAIL   Вверх
Letov
Дата 13.8.2007, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4
Можно без переменной.
Например, так (если я правильно понял задачу smile ):
Код

String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,1])+
StrToFloat(String1.Cells[7,2])+StrToFloat(String1.Cells[7,3])+StrToFloat(String1.Cells[7,4])
+StrToFloat(String1.Cells[7,5])+StrToFloat(String1.Cells[7,6])+StrToFloat(String1.Cells[7,7])
+StrToFloat(String1.Cells[7,8])+StrToFloat(String1.Cells[7,9]));


Это сообщение отредактировал(а) Letov - 13.8.2007, 18:43


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
ivan219
  Дата 13.8.2007, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12
А можно и через массив если числоа яйчеек StringGrid различно а самое простое с фиксированным числом яйчеект -> Letov


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Letov
Дата 13.8.2007, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4
ivan219, в этом вопросе есть много способов решения.


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
ivan219
  Дата 13.8.2007, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12
А можно и более элегантно
Код

F:=0;
for I:=1 to 9 do F:=F + StrToFloat(String1.Cells[7,I]);
String1.Cells[7,10]:=FloatToStr(F);


Добавлено через 2 минуты и 58 секунд
И ещё если переменная типа Integer то заместо FloatToStr используй IntToStr так будет быстрее да и правильнее.


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Letov
Дата 13.8.2007, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4
А можно и так:
Код

String1.Cells[7,10]:='0';
String1.Cells[7,1]:= FloatTostr(переменная Integer+5);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,1])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,2]:= FloatTostr(переменная Integer+6);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,2])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,3]:= FloatTostr(переменная Integer+4);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,3])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,4]:= FloatTostr(переменная Integer+3);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,4])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,5]:= FloatTostr(переменная Integer+3);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,5])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,6]:= FloatTostr(переменная Integer+3);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,6])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,7]:= FloatTostr(переменная Integer+7);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,7])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,8]:= FloatTostr(переменная Integer+6);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,8])+StrToFloat(String1.Cells[7,10]));
String1.Cells[7,9]:= FloatTostr(переменная Integer+3);
String1.Cells[7,10]:=FloatToStr(StrToFloat(String1.Cells[7,9])+StrToFloat(String1.Cells[7,10]));



--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
ivan219
  Дата 13.8.2007, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12
Letov, лишний расход ресурсов код должен быть как можно проще smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Letov
Дата 13.8.2007, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4
ivan219, это ты верно подметил. Но ведь просили не оптимизированный код, а варианты решения задачи! smile 


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
DenRip
Дата 13.8.2007, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 12.6.2007

Репутация: нет
Всего: нет
Спасибо! Господа........Помогли
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0778 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.