StringGrid Сложить две ячеки

padavanLS1000 · #1 03.01.2010, 19:56

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
a:real;
begin


StringGrid1.Cells[0,1]:='1';
 StringGrid1.Cells[0,2]:='2';
   StringGrid1.Cells[0,3]:='3';
 StringGrid1.Cells[0,4]:='4';
  StringGrid1.Cells[0,5]:='5';
 StringGrid1.Cells[0,6]:='6';
   StringGrid1.Cells[0,7]:='7';
 StringGrid1.Cells[0,8]:='8';
 StringGrid1.Cells[0,9]:='9';
 StringGrid1.Cells[0,10]:='10';
   StringGrid1.Cells[0,11]:='11';
 StringGrid1.Cells[0,12]:='12';
  StringGrid1.Cells[0,13]:='13';
 StringGrid1.Cells[0,14]:='14';
   StringGrid1.Cells[0,15]:='15';
 StringGrid1.Cells[0,16]:= '16';
  StringGrid1.Cells[0,17]:= '17';
 StringGrid1.Cells[0,18]:= '18';
   StringGrid1.Cells[0,19]:= '19';
 StringGrid1.Cells[0,20]:= '20';
  StringGrid1.Cells[0,21]:= '21';
 StringGrid1.Cells[0,22]:= '22';
   StringGrid1.Cells[0,23]:= '23';
 StringGrid1.Cells[0,24]:= '24';
 StringGrid1.Cells[0,25]:= '25';
 StringGrid1.Cells[0,26]:= '26';
   StringGrid1.Cells[0,27]:= '27';
 StringGrid1.Cells[0,28]:= '28' ;
  StringGrid1.Cells[0,29]:= '29';
 StringGrid1.Cells[0,30]:= '30';
   StringGrid1.Cells[0,31]:= '31';
   StringGrid1.Cells[0,32]:= 'Итого';
   { ----------------------------------------}
 StringGrid1.Cells[0,0]:= 'Дата' ;
  StringGrid1.Cells[1,0]:= 'Книг';
 StringGrid1.Cells[2,0]:= 'Журналов';
   StringGrid1.Cells[3,0]:='Брашюр';
   StringGrid1.Cells[4,0]:= 'Карандашей';
   StringGrid1.Cells[5,0]:= 'Коратышей';


 end;
end.

Как сложить помогите?

NIch · #2 03.01.2010, 21:35

Так а что складывать???
Если ячейки Книги Журналы Брошуры Карандаши Коротыши, то...

Код:

var
 i : integer;//цикл
 summ : real;//первая сумма
 summ1 : real;//вторая сумма
begin
 summ := 0;//обнуляем первую сумму
 summ1 := 0;//обнуляем вторую сумму
 for i:= 1 to 31 do//цикл
 begin
  summ := summ+StringGrid1.Cells[0,i];//подсчет первой суммы
  summ1 := summ1+StringGrid1.Cells[1,i];//подсчет суммы
 end;
end;

padavanLS1000 · #3 03.01.2010, 22:43

Не прокатывает пишит ошибку

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
 i : integer;//цикл
 summ : real;//первая сумма
 summ1 : real;//вторая сумма
begin
summ := 1;//обнуляем первую сумму
 summ1 := 0;//обнуляем вторую сумму
 for i:= 1 to 31 do//цикл
begin
StringGrid1.Cells[0,1]:='1';
 StringGrid1.Cells[0,2]:='2';
   StringGrid1.Cells[0,3]:='3';
 StringGrid1.Cells[0,4]:='4';
  StringGrid1.Cells[0,5]:='5';
 StringGrid1.Cells[0,6]:='6';
   StringGrid1.Cells[0,7]:='7';
 StringGrid1.Cells[0,8]:='8';
 StringGrid1.Cells[0,9]:='9';
 StringGrid1.Cells[0,10]:='10';
   StringGrid1.Cells[0,11]:='11';
 StringGrid1.Cells[0,12]:='12';
  StringGrid1.Cells[0,13]:='13';
 StringGrid1.Cells[0,14]:='14';
   StringGrid1.Cells[0,15]:='15';
 StringGrid1.Cells[0,16]:= '16';
  StringGrid1.Cells[0,17]:= '17';
 StringGrid1.Cells[0,18]:= '18';
   StringGrid1.Cells[0,19]:= '19';
 StringGrid1.Cells[0,20]:= '20';
  StringGrid1.Cells[0,21]:= '21';
 StringGrid1.Cells[0,22]:= '22';
   StringGrid1.Cells[0,23]:= '23';
 StringGrid1.Cells[0,24]:= '24';
 StringGrid1.Cells[0,25]:= '25';
 StringGrid1.Cells[0,26]:= '26';
   StringGrid1.Cells[0,27]:= '27';
 StringGrid1.Cells[0,28]:= '28' ;
  StringGrid1.Cells[0,29]:= '29';
 StringGrid1.Cells[0,30]:= '30';
   StringGrid1.Cells[0,31]:= '31';
   StringGrid1.Cells[0,32]:= 'Итого';
   { ----------------------------------------}
 StringGrid1.Cells[0,0]:= 'Дата' ;
  StringGrid1.Cells[1,0]:= 'Книги';
 StringGrid1.Cells[2,0]:= 'Брошюры';
   StringGrid1.Cells[3,0]:='каратыши';
   StringGrid1.Cells[4,0]:= 'Жюрналы';
   StringGrid1.Cells[5,0]:= 'карандаши';
 summ := StringGrid1.Cells[1,i];//подсчет первой суммы
  summ1 := summ1+StringGrid1.Cells[1,i];//подсчет суммы
 end;
 end;
end.

Это то что я пишу мож неправильно что?

lmikle: Еще один такой пост без тегов - и будет бан!!!

NIch · #4 03.01.2010, 23:30

Во первых
Процитирую сам себя...

Цитата:

Так а что складывать???

Во вторых
Какую ошибку выдает?
В третьих
У меня тож заметил пару ошибочек
В четвертых
Я показал лишь пример, а не готовый код

Ну, раз я пропустил свои ошибки, то хочу загладить вину...
Попробуй так...

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
 i : integer;//цикл
 summ : real;//Книги
 summ1 : real;//Брошюры
 summ2 : real;//Каратыши
 summ3 : real;//Журналы
 summ4 : real;///Карандаши
begin
 summ := 0;
 summ1 := 0;
 summ2 := 0;
 summ3 := 0;
 summ4 := 0;
 //Заполнение  постоянных данных таблицы
 //Наименование строк
 StringGrid1.Cells[0,1]:='1';
 StringGrid1.Cells[0,2]:='2';
 StringGrid1.Cells[0,3]:='3';
 StringGrid1.Cells[0,4]:='4';
 StringGrid1.Cells[0,5]:='5';
 StringGrid1.Cells[0,6]:='6';
 StringGrid1.Cells[0,7]:='7';
 StringGrid1.Cells[0,8]:='8';
 StringGrid1.Cells[0,9]:='9';
 StringGrid1.Cells[0,10]:='10';
 StringGrid1.Cells[0,11]:='11';
 StringGrid1.Cells[0,12]:='12';
 StringGrid1.Cells[0,13]:='13';
 StringGrid1.Cells[0,14]:='14';
 StringGrid1.Cells[0,15]:='15';
 StringGrid1.Cells[0,16]:= '16';
 StringGrid1.Cells[0,17]:= '17';
 StringGrid1.Cells[0,18]:= '18';
 StringGrid1.Cells[0,19]:= '19';
 StringGrid1.Cells[0,20]:= '20';
 StringGrid1.Cells[0,21]:= '21';
 StringGrid1.Cells[0,22]:= '22';
 StringGrid1.Cells[0,23]:= '23';
 StringGrid1.Cells[0,24]:= '24';
 StringGrid1.Cells[0,25]:= '25';
 StringGrid1.Cells[0,26]:= '26';
 StringGrid1.Cells[0,27]:= '27';
 StringGrid1.Cells[0,28]:= '28' ;
 StringGrid1.Cells[0,29]:= '29';
 StringGrid1.Cells[0,30]:= '30';
 StringGrid1.Cells[0,31]:= '31';
 StringGrid1.Cells[0,32]:= 'Итого';
 //Наименование столбцов
 StringGrid1.Cells[0,0]:= 'Дата' ;
 StringGrid1.Cells[1,0]:= 'Книги';
 StringGrid1.Cells[2,0]:= 'Брошюры';
 StringGrid1.Cells[3,0]:= 'Каратыши';
 StringGrid1.Cells[4,0]:= 'Журналы';
 StringGrid1.Cells[5,0]:= 'Карандаши';  
 //Цикл подсчета сумм
 for i:= 1 to 31 do
 begin
  summ :=  summ + StrToFloat(StringGrid1.Cells[1,i]);
  summ1 := summ1 + StrToFloat(StringGrid1.Cells[2,i]);
  summ2 := summ2 + StrToFloat(StringGrid1.Cells[3,i]);
  summ3 := summ3 + StrToFloat(StringGrid1.Cells[4,i]);
  summ4 := summ4 + StrToFloat(StringGrid1.Cells[5,i]);
 end;
 //Заполнение переменных данных
 StringGrid1.Cells[1,32]:= FloatToStr(summ);
 StringGrid1.Cells[2,32]:= FloatToStr(summ1);
 StringGrid1.Cells[3,32]:= FloatToStr(summ2);
 StringGrid1.Cells[4,32]:= FloatToStr(summ3);
 StringGrid1.Cells[5,32]:= FloatToStr(summ4); 
end;

Если что пиши поправлю)))

padavanLS1000 · #5 06.01.2010, 18:27

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
a : real;
b : real;
C : real;
begin
StringGrid1.Cells[0,0]:='Действие';
StringGrid1.Cells[0,1]:='A';
StringGrid1.Cells[0,2]:='B';
StringGrid1.Cells[0,3]:='A+B=';
StringGrid1.Cells[1,0]:='Введите число';

a:= StrTOFloat(StringGrid1.Cells[1,2]);
b:= StrTOFloat(StringGrid1.Cells[1,3]);
c:=A+b;
StringGrid1.Cells[1,4]:=FloatTOStr(c);

Хочу слажить два числа вчем ашибка комп пишит 'is not valing point value'. ПОМОГИТЕ:

NIch · #6 06.01.2010, 18:59

Вроде все верно, ошибка где то не тут...

padavanLS1000 · #7 06.01.2010, 20:09

Может я что не выставил в обектном инспекторе?.

padavanLS1000 · #8 07.01.2010, 22:45

TryStrTOFloat Люди пишут что както с этим связанно что вроде вместо StrToFloat надо ставить попробовал не компелируется. Вобщем проблема в пустых ячейках в начале наверное.

NIch · #9 08.01.2010, 13:21

На какой строке останавливается в момент ошибки...
Поставь BreakPoint на этой строчке

Код:

StringGrid1.Cells[0,0]:='Действие';

Чтобы поставить BreakPoint, нужно просто щелкнуть левее строчки, появится красная большая точка...
Запускай прогу через Delphi, нажимай на StringGrig, прога должна остановится на этой точке...
Далее нажимай F7 пока не попадешь на свою ошибку, тогда можно конкретнее узнать.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты