Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

(Не)Работа Locate c 2-мя опциями   Найти похожие ветки 

← →
Vemer   (2003-10-21 12:34) [0]

Здравствуйте.
Как правильно объединять TLocateoption в TLocateoptions, чтобы они оба работали? Следующая процедура по идее должна ставить указатель на запись без учета регистра и при неполном совпадении.
Вот как раз "без учета регистра" и не срабатывает, похоже дело в кривом объединении, или они вместе вообще не пашут?

procedure TF_Sklad.Ed_FinderChange(Sender: TObject);
Var
SelText:Variant;
Opt1:TLocateOption;
Opt2:TLocateOption;
Option: TLocateOptions;
Begin
Opt1 := (loCaseInsensitive);
Opt2 := (loPartialKey);
Option := [opt1, opt2];

SelText := Ed_Finder.Text;
DM.Klient.Locate("KLN_NAME", SelText, Option);
End;

--------------------------
ACCESS DENIED, Delphi Recomended! (c)Vemer.

---

← →
DenK_vrtz   (2003-10-21 13:13) [1]

а просто написать без заморочек

DM.Klient.Locate("KLN_NAME", SelText, [loCaseInsensitive, loPartialKey])

---

← →
DenK_vrtz   (2003-10-21 13:15) [2]

в догонку

uses db;

ежли что!

---

← →
Vemer   (2003-10-28 10:16) [3]

С латынью работает, а с рускими [loCaseInsensitive] не пашет. Ну и фиг с ним.

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.008 c