Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2008, 22:06   #11
fudzy79
Пользователь
 
Регистрация: 01.02.2008
Сообщений: 15
По умолчанию

Цитата:
и еще вопросик, как можно автоматически (через цикл) обозвать столбцы названиями месяцев года
с этим можно как нибудь помочь, чтоб вместо "Месяц - 1" (на рисунке выше видно) и т.д. были Январь, Февраль и т.д.
fudzy79 вне форума Ответить с цитированием
Старый 04.02.2008, 22:15   #12
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Создать глобальный массив:
Код:
  var m:array[1..12]of string = ('Январь','Февраль','Март',
                             'Апрель','Май','Июнь',
                             'Июль','Август','Сентябрь',
                             'Октябрь','Ноябрь','Декабрь');
...
//потом обращаемся к нему где нужно
...cells[...]:='Месяц '+month[i];
...
zetrix вне форума Ответить с цитированием
Старый 04.02.2008, 22:19   #13
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Можно и циклом, только ничего не выигрываешь. Например создаешь массив s:array[1..12] of string; Присваиваешь s[1]:='январь'; s[2]:='февраль'; и т. д. Потом в цикле присваиваешь эти значения названиям столбцов. Проще просто присвоить эти названия сразу, без массива и цикла.
puporev вне форума Ответить с цитированием
Старый 04.02.2008, 22:21   #14
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Почему? Циклом можно DateToStr присваивать. (формат не помню )
B_N вне форума Ответить с цитированием
Старый 04.02.2008, 22:32   #15
fudzy79
Пользователь
 
Регистрация: 01.02.2008
Сообщений: 15
По умолчанию

Цитата:
Циклом можно DateToStr
Вот вот, я про это и имел ввиду, тока тоже нинаю как это сделать

Но пока сделаю сразу обзову столбцы месяцами, а потом и через цикл допенькаю
fudzy79 вне форума Ответить с цитированием
Старый 04.02.2008, 22:47   #16
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Век живи, век учись. Напиши так.
Код:
for i:= 1 to 5 do SG1.Cells[0, i]:= 'Филиал №  ' + IntToStr(i);
  for j:= 1 to 12 do SG1.Cells[j, 0]:= LongMonthNames[j];
puporev вне форума Ответить с цитированием
Старый 06.02.2008, 21:32   #17
fudzy79
Пользователь
 
Регистрация: 01.02.2008
Сообщений: 15
По умолчанию

Цитата:
Сообщение от puporev Посмотреть сообщение
Век живи, век учись. Напиши так.
Код:
for i:= 1 to 5 do SG1.Cells[0, i]:= 'Филиал №  ' + IntToStr(i);
  for j:= 1 to 12 do SG1.Cells[j, 0]:= LongMonthNames[j];
супер, всё просто замечательно!!!
Век живу, век учусь
fudzy79 вне форума Ответить с цитированием
Старый 06.02.2008, 21:52   #18
fudzy79
Пользователь
 
Регистрация: 01.02.2008
Сообщений: 15
По умолчанию

В продолжение темы: вопросик по CheckListBox.
как узнать, сколько выделено чеков
пример: sr1:= temp1/CheckListBox. .... ( а что дальше, какой метод или свойство, не могу найти).
Вобщем, надо, чтоб искало среднюю сумму: temp1 = сумма чисел(например за 8 месяцев), sr1 = среднее
fudzy79 вне форума Ответить с цитированием
Старый 06.02.2008, 22:14   #19
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

CheckListBox1.Items.Count
puporev вне форума Ответить с цитированием
Старый 06.02.2008, 22:16   #20
fudzy79
Пользователь
 
Регистрация: 01.02.2008
Сообщений: 15
По умолчанию

Цитата:
Сообщение от puporev Посмотреть сообщение
CheckListBox1.Items.Count
так я делал, таким образом он делит на все 12 месяцев, независимо от того, сколька чеков выделено
fudzy79 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массивы в С\С++ Zahar11 Помощь студентам 4 31.05.2008 00:35
Массивы Snord Общие вопросы Delphi 2 12.04.2008 13:45
Ошибка в программе. Массивы RECREATOR Общие вопросы Delphi 5 21.12.2007 12:13