procedure TfmMain.cbFiltrEnter(Sender: TObject); var i:integer; begin cbFiltr.Items.Clear; With ADOQuery1 do begin for i:=0 to FieldCount-1 do begin if (Fields[i] is TIntegerField) then cbFiltr.Items.Add(Fields[i].DisplayLabel); end; end; end; Бағдарламаны жібергеннен кейін тізім дұрыс қалыптасуын тексеріңіз.
edFiltr компонентасында қолданушы сандық мәліметтерді енгізеді. Қолданушы қате жібермеу үшін, осы өрісте сандардан басқа ештене болмауы керек. Берілген OnKeyPress компонентасына өндеушіні құрамыз:
procedure TfmMain.edFiltrKeyPress(Sender: TObject; var Key: Char); begin if (Key=Chr(VK_BACK))or(Key=Chr(VK_DELETE)) then Exit; if not(Key in ['0'..'9']) then Key:= #0; end; Бағдарламаны жіберіп, осы компонентаның жұмысын тексеріңіз.
