Здравствуйте, при фильтраций записи выходит ошибка:
аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом. Хотел сделать чтобы при нажатий кнопки открылось форма уже отфильтровав записи.
Код:
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 - отображается день недели.
Код:
const
week:array[1..7] of string = ('Жексенбі', 'Дүйсенбі', 'Сейсенбі', 'Сәрсенбі', 'Бейсенбі', 'Жұма', 'Сенбі');
procedure TForm1.FormActivate(Sender: TObject);
var day:integer;
begin
day:=DayOfWeek(date);
Label9.Caption:=week[day];
Помогите пожалуйста найти ошибку. Заранее большое всем спасибо!