Здравствуйте, при фильтраций записи выходит ошибка:
аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом. Хотел сделать чтобы при нажатий кнопки открылось форма уже отфильтровав записи.
Код:
1 2 3 4 5 6 7 | procedure TForm1 . Button2Click(Sender: TObject);
begin
form4 . ADOTable1 . Filtered:= False ;
form4 . ADOTable1 . Filter:= '[weekday]' +Label9 . Caption;
form4 . ADOTable1 . Filtered:= true ;
form4 . show;
end ;
|
Label9.caption - отображается день недели.
Код:
1 2 3 4 5 6 7 | const
week: array [ 1..7 ] of string = ( 'Жексенбі' , 'Дүйсенбі' , 'Сейсенбі' , 'Сәрсенбі' , 'Бейсенбі' , 'Жұма' , 'Сенбі' );
procedure TForm1 . FormActivate(Sender: TObject);
var day: integer ;
begin
day:=DayOfWeek(date);
Label9 . Caption:=week[day];
|
Помогите пожалуйста найти ошибку. Заранее большое всем спасибо!