Поиск

← →
dumka (2007-11-07 14:19) [0]

Как избавится от несовместимости типов при поиске, в датах, и числах.
case ComboBox1.ItemIndex of
0:dm.Table2.Locate("Nazvanie_teatra",Edit4.Text,[locaseInSensitive,loPartialKey] );
1:dm.Table2.Locate("Nazvanie_stektakl",Edit4.Text,[locaseInSensitive,loPartialKe y]);
//2:dm.Table2.Locate("Data",Edit4.Text,[]);
//3:dm.Table2.Locate("Nomer_seans",Edit4.Text,[locaseInSensitive,loPartialKey]);
end;

← →
Reindeer Moss Eater © (2007-11-07 14:20) [1]

использовать совместимые с типом поля типы

← →
Reindeer Moss Eater © (2007-11-07 14:21) [2]

locaseInSensitive и loPartialKey на числовых полях это стильно.

← →
dumka (2007-11-07 14:23) [3]

т.е. Locate с датами и числами не работает?

← →
Reindeer Moss Eater © (2007-11-07 14:24) [4]

Работает

← →
dumka (2007-11-07 14:25) [5]

Ну и, как?

← →
Reindeer Moss Eater © (2007-11-07 14:28) [6]

Могу сказать, что здорово

← →
dumka (2007-11-07 14:32) [7]

> Reindeer Moss Eater

Хватит издеваться, правда очень нужно. Как обработать сроки?
2:dm.Table2.Locate("Data",Edit4.Text,[]);
3:dm.Table2.Locate("Nomer_seans",Edit4.Text,[]);

← →
Ega23 © (2007-11-07 14:33) [8]

> Как избавится от несовместимости типов при поиске, в датах,
> и числах.
> case ComboBox1.ItemIndex of
> 0:dm.Table2.Locate("Nazvanie_teatra",Edit4.Text,[locaseInSensitive,
> loPartialKey] );
> 1:dm.Table2.Locate("Nazvanie_stektakl",Edit4.Text,[locaseInSensitive,
> loPartialKe y]);
> //2:dm.Table2.Locate("Data",Edit4.Text,[]);
> //3:dm.Table2.Locate("Nomer_seans",Edit4.Text,[locaseInSensitive,
> loPartialKey]);
> end;
>

Использовать TDBLookupCombo

← →
agv (2007-11-07 14:36) [9]

2:dm.Table2.Locate("Data",StrToDate(Edit4.Text),[]);
3:dm.Table2.Locate("Nomer_seans",StrToInt(Edit4.Text),[]);

← →
Reindeer Moss Eater © (2007-11-07 14:41) [10]

dm.Table2.Locate("Data",StrToDate(Edit4.Text),[]);

Если эта конструкция не вызовет исключения, то не вызовет исключения и просто Table2.Locate("Data",Edit4.Text,[])

← →
dumka (2007-11-07 14:42) [11]

> agv

Ошибка та же

← →
dumka (2007-11-07 14:44) [12]

Я как то делала, обрабатывая функцией, но давно было, не помню.

← →
Reindeer Moss Eater © (2007-11-07 14:45) [13]

Вот над этим думай:
StrToDate(Edit4.Text);

А про локейт забудь пока.

← →
agv (2007-11-07 14:47) [14]

в этом что?

Edit4.Text

← →
dumka (2007-11-07 14:48) [15]

ну что то так pr:=StrToDate(Edit4.Text); а затем

2:dm.Table2.Locate("Data",pr,[]);

← →
agv (2007-11-07 14:50) [16]

StrToDate("01.01.2001") = EncodeDate(2001, 01, 01)

подумай...

← →
dumka (2007-11-07 14:54) [17]

> agv

Ну и что я умею декодировать дату.
ошибка "is not a valid date"
и после этого он прекрано ищет, как избавиться от ошибки.

← →
Anatoly Podgoretsky © (2007-11-07 14:54) [18]

> dumka (07.11.2007 14:23:03) [3]

Отлично работает

← →
Reindeer Moss Eater © (2007-11-07 14:55) [19]

ввести валид дату

← →
dumka (2007-11-07 14:55) [20]

> Anatoly Podgoretsky

это вопрос или факт?

← →
Anatoly Podgoretsky © (2007-11-07 15:00) [21]

Это факт.
Ты для начала добейся, чтобы у тебя работало Date := StrToDate(D)

← →
dumka (2007-11-07 15:24) [22]

Я здаюсь, я совсем запуталась.

← →
agv (2007-11-07 15:28) [23]

>> agv (07.11.07 14:47) [14]

← →
dumka (2007-11-07 15:39) [24]

> agv

Нет ничего, т.е пусто

> dumka (07.11.07 14:54) [17]
> ...ошибка "is not a
> valid date"и после этого он прекрано ищет, как избавиться
> от ошибки...

> Reindeer Moss Eater © (07.11.07 14:55) [19]
> ввести валид дату

Вот! И не забыть про установленные DateSeparator, ShortDateFormat и иже с ними...

← →
agv (2007-11-07 15:49) [26]

ну тогда не жалуйся

← →
agv (2007-11-07 15:51) [27]

Зачет

← →
dumka (2007-11-07 15:52) [28]

Я помню, что использовала функцию fry. Но как...

> Я помню, что использовала функцию fry. Но как...

Есть телепаторы и есть Телепаторы, а есть Телепаторы Вне Категорий, и это явно для них задача.

Поскольку try - это как бы не очень функция, полагаю, что использовались функция TryStrToDate или же StrToDateDef, если таковые существуют, в противном случае - блок try..except...end.

> ошибка "is not a valid date"
> и после этого он прекрано ищет, как избавиться от ошибки.

Замени Edit4 на компонент, предназначенный для ввода даты, коль справится с переводом стоки в дату не можешь

← →
dumka (2007-11-08 09:46) [31]

Да могу я переодить, что в этой записи нужно переводить. Я уже все перепробовала.
2:dm.Table2.Locate("Data",(Edit4.Text),[]);
А другой компонент я не могу взять, это же поиск и для текстовых значений, и для дат, и для чисел.

← →
dumka (2007-11-08 10:04) [32]

2: if trystrtodate(Edit4.Text,pr) then dm.Table2.Locate("Data",pr,[]);
Я сделала это, черт, Вам лень подсказать. Хотя я теперь точно не забуду.

Поиск Найти похожие ветки