Форум: "Базы";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];
Вниз
Поик подстроки символов Найти похожие ветки
← →
Tomkat (2003-04-18 13:05) [0]Доброе время суток, мастера ! Ни у кого не возникаа задачка поиска произвольной строки символов в строковои поле ?
Locate не годится - ищет только с начала поля, а нада в середине... какие будут предложения?
← →
Zacho (2003-04-18 13:09) [1]Перебором всех записей в цикле.
← →
Anatoly Podgoretsky (2003-04-18 13:10) [2]if
then
else
Next
← →
Соловьев (2003-04-18 13:11) [3]
> Доброе время суток, мастера ! Ни у кого не возникаа задачка
> поиска произвольной строки символов в строковои поле ?
select *
from table
where fio like "%"||:Param1||"%"
← →
Соловьев (2003-04-18 13:12) [4]onFilterRecord
← →
Tomkat (2003-04-18 13:15) [5]
> where fio like "%"||:Param1||"%"
не подходит - надо в НД перебирать , не пряча другие
> if
> then
> else
> Next
а условия какие ?
← →
Anatoly Podgoretsky (2003-04-18 13:24) [6]А условия твои, откуда мне про них знать
← →
Zacho (2003-04-18 13:29) [7]
> Tomkat © (18.04.03 13:15)
>
> а условия какие ?
Что-то типа if Pos(MySubstr,MyDataSet.FieldByName("MY_FIELD").AsString)>0 then ..
← →
Соловьев (2003-04-18 13:48) [8]
> не подходит - надо в НД перебирать , не пряча другие
почему?
← →
Anatoly Podgoretsky (2003-04-18 13:54) [9]Наверно надо видеть весь набор, не скрывая показ остальных строк
← →
Tomkat (2003-04-18 14:28) [10]
> Наверно надо видеть весь набор, не скрывая показ остальных
> строк
так точно !
SELECT
FROM
WHERE - это не сложно и понятно ....
а вот нада в НД найти запись по условию ....
← →
Жук (2003-04-18 15:33) [11]
> Anatoly Podgoretsky © (18.04.03 13:10)
> if
> then
> else
> Next
← →
Zacho (2003-04-18 18:24) [12]
> Tomkat © (18.04.03 14:28)
А в чем проблема-то ? Подсказки тебе уже дали, процедурка получится довольно простенькая. Или тебе надо, чтобы готовое на блюдечке поднесли ? :) Пожалуйста, что-то вроде этого:
function LocateSubstr(DataSet:TDataSet;FieldName,Substr:string):boolean;
begin
result:=false;
DataSet.First;
while not DataSet.EOF do
begin
if pos(Substr,DataSet.FieldByName(FieldName).AsString)>0 then
begin
result:=true;
break;
end;
DataSet.Next;
end;
end;
← →
Tomkat (2003-04-21 10:46) [13]
> готовое на блюдечке поднесли ?
спасиба , уже дошло ...просто вешалось при переборе
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
