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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.01.2012, 10:56
cyber922 cyber922 вне форума
Новичок
 
Регистрация: 07.10.2011
Сообщения: 77
Версия Delphi: Turbo Delphi 20
Репутация: 10
По умолчанию таблицы стрингрид

Вообщем на форме две таких таблицы, 4 на 4 и 5 на 5. , нужно чтобы в первой таблице во втором столбце,подсчитывалась сумма чисел, а во второй таблице, подсчитывалась сумма чисел второй строки...
Ответить с цитированием
  #2  
Старый 21.01.2012, 11:39
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от cyber922
... нужно чтобы в первой таблице во втором столбце,подсчитывалась сумма чисел...
Сумма чисел чего, каких ячеек?

Цитата:
Сообщение от cyber922
... а во второй таблице, подсчитывалась сумма чисел второй строки...
Второй строки какого StringGrid-а?

Немного внятнее можно, с телепатией проблема.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 21.01.2012, 12:11
cyber922 cyber922 вне форума
Новичок
 
Регистрация: 07.10.2011
Сообщения: 77
Версия Delphi: Turbo Delphi 20
Репутация: 10
По умолчанию ср

Цитата:
Сообщение от angvelem
Сумма чисел чего, каких ячеек?


Второй строки какого StringGrid-а?

Немного внятнее можно, с телепатией проблема.

в первом гриде, сумму только целых чисел ВСЕХ ячеек второго столбца, а во втором гриде сумму ВСЕХ яйчеек только целых чисел 2 строки

Размеры я указал....
а, да, и чтоб по отдельности каждая сумма в едит выводилась, ну то есть, сумма ячеек 2 столбца в один едит, а сумма ячеек второго грида( со строкой) во второй эдит

Последний раз редактировалось cyber922, 21.01.2012 в 12:16.
Ответить с цитированием
  #4  
Старый 21.01.2012, 12:37
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

И в чём проблема?
Код:
var
  I, J : Integer;
begin
  J := 0;
  for I := 0 to 3 do
    J := J + StrToIntDef(SG1.Cells[1, I], 0);
  Edit1.Text := IntToStr(J);

  J := 0;
  for I := 0 to 4 do
    J := J + StrToIntDef(SG2.Cells[I, 1], 0);
  Edit2.Tetx := IntToStr(J);
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 21.01.2012, 12:40
cyber922 cyber922 вне форума
Новичок
 
Регистрация: 07.10.2011
Сообщения: 77
Версия Delphi: Turbo Delphi 20
Репутация: 10
По умолчанию

Цитата:
Сообщение от angvelem
И в чём проблема?
Код:
var
  I, J : Integer;
begin
  J := 0;
  for I := 0 to 3 do
    J := J + StrToIntDef(SG1.Cells[1, I], 0);
  Edit1.Text := IntToStr(J);

  J := 0;
  for I := 0 to 4 do
    J := J + StrToIntDef(SG2.Cells[I, 1], 0);
  Edit2.Tetx := IntToStr(J);
end;


счаз попробуем))


Работаеет)) спасибо))

а как подсчитать количество вхождений символа «&» в текстовую таблицу.?
Символы я любые ввожу.

Последний раз редактировалось cyber922, 21.01.2012 в 12:44.
Ответить с цитированием
Ответ


Delphi Sources

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

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

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter