dVal), 1 , length (edit4.text))=AnsiUpperCase (edit4.Text);; end;
/ / застосовуємо фільтрTForm1.Edit3Change (Sender: TObject);. Filtered:=false;. Filtered:=true;;
/ / застосовуємо фільтрTForm1.Edit4Change (Sender: TObject);. Filtered:=false;. Filtered:=true;; TForm1.Button3Click (Sender: TObject);. Next;; TForm1.Button2Click ( Sender: TObject);. Prior;;.
Додаток В
Вигляд програми в процесі розробки
Вигляд програми в процесі Виконання:
