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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2007, 20:34   #1
monushka
Форумчанин
 
Аватар для monushka
 
Регистрация: 26.10.2007
Сообщений: 112
По умолчанию Помогите, пожалуйста, со StringGrid'ом!

Есть SG1, в котором указаны некоторые данные. Например, первая колонка - наименование оборудования, вторая - место его нахождения, третья - техническое состояние (оценка от 1 до 5). Проблема заключается в следующем. Необходимо сделать сортировку по оценкам. Т.е. если оценка 3, то вся строка (в которой находится эта оценка) копируется в SG2. У меня копируется только последняя строка с оценкой 3. Я не знаю, как правильно это сделать. Помогите пожалуйста! И еще... Можно ли выводить форму на печать так, что бы она печаталась вместе со ВСЕМ содержимым таблиц? Если можно, то как?
Заранее БОЛЬШОЕ спасибо!
If you wanna make the world a better place take a look at yourself and then make a change!
monushka вне форума Ответить с цитированием
Старый 27.10.2007, 11:23   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
У меня копируется только последняя строка с оценкой 3. Я не знаю, как правильно это сделать. Помогите пожалуйста!
Показывайте, как вы это делаете. Посмотрим...
mihali4 вне форума Ответить с цитированием
Старый 27.10.2007, 12:16   #3
Maslan
Форумчанин
 
Регистрация: 15.10.2007
Сообщений: 147
По умолчанию

Код:
for i:=0{если нет строки с названиями столбцов, иначе 1} to SG1.RowCount-1
 do
  If SG1.Cells[2,i]='3'
   then begin
    SG2.RowCount:=SG2.RowCount+1;
    SG2.Rows[SG2.RowCount-1].AddStrings(SG1.Rows[1]);
   end;
А печать.... Методов много... "вместе со ВСЕМ содержимым таблиц?" - то есть, если даже строк 300 в SG2, то форма должна растянуться на несолько листов?
Maslan вне форума Ответить с цитированием
Старый 27.10.2007, 19:17   #4
monushka
Форумчанин
 
Аватар для monushka
 
Регистрация: 26.10.2007
Сообщений: 112
По умолчанию

Цитата:
Сообщение от Maslan Посмотреть сообщение
Код:
for i:=0{если нет строки с названиями столбцов, иначе 1} to SG1.RowCount-1
 do
  If SG1.Cells[2,i]='3'
   then begin
    SG2.RowCount:=SG2.RowCount+1;
    SG2.Rows[SG2.RowCount-1].AddStrings(SG1.Rows[1]);
   end;
А печать.... Методов много... "вместе со ВСЕМ содержимым таблиц?" - то есть, если даже строк 300 в SG2, то форма должна растянуться на несолько листов?
Форма должна растянуться на столько, чтобы полностью влезла таблица. Даже если у нее 300 строк (у меня примерно столько и получается)...
If you wanna make the world a better place take a look at yourself and then make a change!
monushka вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема со StringGrid'ом monushka Компоненты Delphi 8 31.10.2007 15:13