Turbo Pascal с Turbo Vision

[pavlovpro]

Turbo Pascal с Turbo Vision

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]

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

 

[Vladimir_S]

Получился фильтр, который убирает строки с числом студентов 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, то вывести строку, в противном случае - нет".