ан
Adotable1.Filtered:=true; .Filter:=a31;
begin :=0; .First;
while adotable1. Eof lt; gt; true do//Реалізуємо лічильник підрахунку
відфільтрованих записів по
begin //за схемою циклу з умовним переходом
a52:=a52 + 1; 1.Next;// Перехід на початок циклу
end;
end;
Form2.Edit1.Text:=inttostr (a52);// На висновок кол-ва телефонів на форме2
if a00 lt; gt; 0 then //якщо довжина рядка не порожня, т.е вибрано, то. Hide;// приховуємо форму1
if a00 lt; gt; 0 then //якщо довжина рядка не порожня, т.е вибрано, то. ShowModal;// відображаємо форму2
if a00=0 then //якщо довжина рядка порожня, т.е не визначена параметр, то.Show;// відображаємо форму1
if a00=0 then //якщо довжина рядка порожня, т.е не визначена параметр, то.Hide;// приховуємо форму2
end; //формуємо змінні по випадаещему списку
procedure TForm1.ComboBox1Change (S end er: TObject);
begin := Виробник= + QuotedStr (combobox1.Text);// Записуємо в
змінну а11 і т.д а12 ... а22
if combobox1.Text= then
a11:= raquo ;;
end;
procedure TForm1.ComboBox2Change (S end er: TObject);
begin
if combobox2.Text= Так then := [FM радіо]= + QuotedStr ( є );
if combobox2.Text= Ні then := [FM радіо]= + QuotedStr (combobox2.Text);
if combobox2.Text= then := raquo ;;
end;
procedure TForm1.ComboBox3Change (S end er: TObject);
begin := Колір= + QuotedStr (combobox3.Text);
if combobox3.Text= then := raquo ;;
end;
procedure TForm1.ComboBox4Change (S end er: TObject);
begin := [Тип корпусу]= + QuotedStr (combobox4.Text);
if combobox4.Text= then := raquo ;;
end;
procedure TForm1.ComboBox5Change (S end er: TObject);
begin := [Сенсорний екран]= + QuotedStr (combobox5.Text);
if combobox5.Text= then := raquo ;;
end;
procedure TForm1.ComboBox6Change (S end er: TObject);
begin := [Підтримка двох SIM карт]= + QuotedStr (combobox6.Text);
if combobox6.Text= then := raquo ;;
end;
procedure TForm1.ComboBox7Change (S end er: TObject);
begin := [MP3 плеєр]= + QuotedStr (combobox7.Text);
if combobox7.Text= then := raquo ;;
end;
procedure TForm1.ComboBox8Change (S end er: TObject);
begin := Wi-Fi= + QuotedStr (combobox8.Text);
if combobox8.Text= then := raquo ;;
end;
procedure TForm1.ComboBox9Change (S end er: TObject);
begin := Bluetooth= + QuotedStr (combobox9.Text);
if combobox9.Text= then := raquo ;;
end;
procedure TForm1.ComboBox10Change (S end er: TObject);
begin := [3G]= + QuotedStr (combobox10.Text);
if combobox10.Tex...