Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Перезагрузить страницу

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

Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.01.2010, 19:56
padavanLS1000 padavanLS1000 вне форума
Прохожий
  
Регистрация: 03.01.2010
Сообщения: 5
Репутация: 10
Радость StringGrid Сложить две ячеки
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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.

Как сложить помогите?
Ответить с цитированием
  #2  
Старый 03.01.2010, 21:35
Аватар для NIch
NIch NIch вне форума
Продвинутый
  
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию
Так а что складывать???
Если ячейки Книги Журналы Брошуры Карандаши Коротыши, то...
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
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;
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием
  #3  
Старый 03.01.2010, 22:43
padavanLS1000 padavanLS1000 вне форума
Прохожий
  
Регистрация: 03.01.2010
Сообщения: 5
Репутация: 10
По умолчанию
Не прокатывает пишит ошибку

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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: Еще один такой пост без тегов - и будет бан!!!
Последний раз редактировалось padavanLS1000, 03.01.2010 в 22:47.
Ответить с цитированием
  #4  
Старый 03.01.2010, 23:30
Аватар для NIch
NIch NIch вне форума
Продвинутый
  
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию
Во первых
Процитирую сам себя...
Цитата:
Так а что складывать???
Во вторых
Какую ошибку выдает?
В третьих
У меня тож заметил пару ошибочек
В четвертых
Я показал лишь пример, а не готовый код

Ну, раз я пропустил свои ошибки, то хочу загладить вину...
Попробуй так...
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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;
Если что пиши поправлю)))
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Последний раз редактировалось NIch, 03.01.2010 в 23:33.
Ответить с цитированием
  #5  
Старый 06.01.2010, 18:27
padavanLS1000 padavanLS1000 вне форума
Прохожий
  
Регистрация: 03.01.2010
Сообщения: 5
Репутация: 10
По умолчанию
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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'. ПОМОГИТЕ:
Последний раз редактировалось padavanLS1000, 06.01.2010 в 20:03.
Ответить с цитированием
  #6  
Старый 06.01.2010, 18:59
Аватар для NIch
NIch NIch вне форума
Продвинутый
  
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию
Вроде все верно, ошибка где то не тут...
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием
  #7  
Старый 06.01.2010, 20:09
padavanLS1000 padavanLS1000 вне форума
Прохожий
  
Регистрация: 03.01.2010
Сообщения: 5
Репутация: 10
По умолчанию
Может я что не выставил в обектном инспекторе?.
Ответить с цитированием
  #8  
Старый 07.01.2010, 22:45
padavanLS1000 padavanLS1000 вне форума
Прохожий
  
Регистрация: 03.01.2010
Сообщения: 5
Репутация: 10
По умолчанию
TryStrTOFloat Люди пишут что както с этим связанно что вроде вместо StrToFloat надо ставить попробовал не компелируется. Вобщем проблема в пустых ячейках в начале наверное.
Ответить с цитированием
  #9  
Старый 08.01.2010, 13:21
Аватар для NIch
NIch NIch вне форума
Продвинутый
  
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию
На какой строке останавливается в момент ошибки...
Поставь BreakPoint на этой строчке
Код:
1
StringGrid1.Cells[0,0]:='Действие';
Чтобы поставить BreakPoint, нужно просто щелкнуть левее строчки, появится красная большая точка...
Запускай прогу через Delphi, нажимай на StringGrig, прога должна остановится на этой точке...
Далее нажимай F7 пока не попадешь на свою ошибку, тогда можно конкретнее узнать.
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием
Ответ

« Предыдущая тема | Следующая тема »

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Линейный вид Линейный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:14.

Обратная связь - Главная страница сайта Delphi Sources - Вверх

 

Сайт

Форум

FAQ

Соглашения

Прочее
 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025