Turbo Pascal с Turbo Vision

pavlovpro · 05.11.2011, 23:40

procedure TableColumn.filter;
var etalon1, etalon2: String;
begin
Etalon1:='';
Etalon2:='100';
if (TableCells[5]^.text^<>etalon1) AND (TableCells[5]^.text^<>etalon2) then
show
else
hide;
end;
База данных.
Вводятся факультет, ФИО декана, число преподавателей, число сту¬дентов, номер комнаты деканата, телефон деканата;
По заданию надо напечатать сведения о факультетах с числом студентов больше заданного.
Получился фильтр, который убирает строки с числом студентов 100.Если что вся программа во вложениях.Спасибо!

AlexZir · 06.11.2011, 10:16

Код не просматривал, но, судя по листингу и заданию, вам просто необходимо предусмотреть и реализовать диалог ввода значения переменной Etalon2. Удачи.

Vladimir_S · 06.11.2011, 10:44

Цитата:

Сообщение от pavlovpro

Получился фильтр, который убирает строки с числом студентов 100.

А чего Вы хотите - как Вы написали, так программа и делает. Оператор

Цитата:

if (TableCells[5]^.text^<>etalon1) AND (TableCells[5]^.text^<>etalon2) then
show
else
hide;
end;

считывает количество студентов на факультете В СТРОКОВОМ ФОРМАТЕ и сравнивает со строками '' и '100'. При несовпадении выводит, а если ячейка пустая или в ней стоит 100, то не выводит.
К сожалению, в ООП не силён, а потому лишь рекомендации общего плана:
1. Колонку с количеством студентов задать не в строковом, а в числовом формате, тем более, что такая возможность вроде как предусмотрена:

Цитата:

{колонки могут быть строковые, числовые}
columnType = (str, int);

2. Константы (или вводимые переменные) Etalon1 и Etalon2 сделать также числовыми.

3. Фильтр построить по принципу "если количество студентов >Etalon2, то вывести строку, в противном случае - нет".

05.11.2011, 23:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ранее на форуме создавались темы, которые напоминают вашу Файл, файловый тип, Turbo Pascal Turbo Pascal 8, дано натуральное число n Cтек, Turbo Pascal Turbo Pascal. Оператор CASE Синтаксический анализатор. Turbo Pascal Стек в Turbo Pascal

06.11.2011, 10:16	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код не просматривал, но, судя по листингу и заданию, вам просто необходимо предусмотреть и реализовать диалог ввода значения переменной Etalon2. Удачи.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070