align="justify"> a51:
string ;: integer;: integer;: integer;:
string ;: < b align="justify"> string ;
a00: integer;// Змінна для довжини рядка
implementation
uses Unit2;
{$ R * .dfm}
procedure TForm1.BitBtn2Click (Send er: TObject);
var : string ;
begin :=0;
a62:=0; a71 lt; gt; then//Перетворення тексту при наборі діапазону Ціни
числовий формат
a61:=strtoint (a71); a72 lt; gt; then
a62:=strtoint (a72); (a62=0) and (a61 lt; gt; 0) then//За умови завдання початкового
діапазону верхній формірутся на максимум:=999999;
begin .Filtered:=False;// Відключаємо фільтрацію тим самим
наводимо бд у вихідне состояніе.First;// Читаем с 1 записи таблиці
while adotable1. Eof lt; gt; true do//Цикл для прочитання файлу від початку до
кінця
begin //при завершення циклу переходимо на змінну для
фільтраціі.edit;// Редактірум поле ознака поля діапозона Ціни
записуємо 0
adotable1.FieldValues ??[ Цана ]:= 0 raquo ;;. Post;
if strtoint (adotable1.Fields [33] .AsString) gt;=a61 then //перевіряємо діапазон
if strtoint (adotable1.Fields [33] .AsString) lt;=a62 then //перевіряємо діапазон
begin
adotable1.edit; 1.FieldValues ??[ Цана ]:= 1 raquo ;;// За умови діапазону Ціни
ставимо 1
adotable1.Post;
end; 1.Next;// Перехід на початок циклу
end;
end; :=0;:= raquo ;;// Формуємо змінну для фільтрації
if a11 lt; gt; then :=a31 + a11 + and raquo ;;
if a12 lt; gt; then :=a31 + a12 + and raquo ;;
if a13 lt; gt; then :=a31 + a13 + and raquo ;;
if a14 lt; gt; then :=a31 + a14 + and raquo ;;
if a15 lt; gt; then :=a31 + a15 + and raquo ;;
if a16 lt; gt; then :=a31 + a16 + and raquo ;;
if a17 lt; gt; then :=a31 + a17 + and raquo ;;
if a18 lt; gt; then :=a31 + a18 + and raquo ;;
if a19 lt; gt; then :=a31 + a19 + and raquo ;;
if a20 lt; gt; then :=a31 + a20 + and raquo ;;
if a21 lt; gt; then :=a31 + a21 + and raquo ;;
if a22 lt; gt; then :=a31 + a22 + and raquo ;;
if a23 lt; gt; then :=a31 + a23 + and raquo ;;
if a61 + a62 lt; gt; 0 then //Перевіряємо заданий діапазон чи ні
begin :=a31 + Кана= + 1 raquo ;;// Додаємо діапазон до фільтрацію:=1;
end
else
//В результаті отримуємо а31 на кінці з полем and довжиною 5знаков
begin //для цього довжину рядка і Видаляємо останні 5 символів:=length (a31);// Підрахунок символів (a31, a00-4,5);// Видаляємо останні 5 символів
end;
if a00=0 then :='Для роботи Експертної Системи повинен бути вибраний хоч би
один з параметрів !!! ';
edit1.Text:=s; .Visible:=True;// Робимо невидимим edit1
if a00 lt; gt; 0 then .Text:= raquo ;;
if a00=0 then //перевіряємо чи дані для фільтрації якщо a00=0, .Filtered:=False ;// то БД приводиться в початковий ст...
