Форум: "Базы";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];
Вниз
Поиск в dbgrid1(table1) по любой части слова. Найти похожие ветки
← →
Officeman (2003-03-26 19:35) [0]Доброе время суток. Когдато этот влпрос здесь задавался. но что то я немогу найти. поэтому спрашиваю ещё разок =)
Как осуществить поиск по любой части слова в определенном столбце таблицы. без использования sql.
например дано такое значение в ячейке:
ПФ-266
ПФ-115
Я набираю 115 в edit1 и нахожу это значение.
← →
Anatoly Podgoretsky (2003-03-26 19:41) [1]Сканирование всех записей
← →
zacho (2003-03-26 19:41) [2]RTFM TDataSet.Locate
← →
Anatoly Podgoretsky (2003-03-26 19:50) [3]zacho © (26.03.03 19:41)
Не подойдет - "по любой части слова"
← →
Officeman (2003-03-26 19:51) [4]Привидите пожалуйста на примере!
с Уважением и неисчерпаемой благодарностью, ОфисМен
← →
Officeman (2003-03-26 19:54) [5]Да! необходим поиск по любой части слова. т.е. поиск внутри строки. я когда то это писал. =/ исходник несохранился. =(
Может у кого есть пример ?
← →
Anatoly Podgoretsky (2003-03-26 19:55) [6]Смотри хелп по слову POS или любой учебник, начиная с 80 годов, без разницы
← →
Officeman (2003-03-26 20:07) [7]Загрузил по полной! еслибы у меня был нормальный учебник я бы сейчас в форуме бы не сидел =/
← →
Anatoly Podgoretsky (2003-03-26 20:09) [8]Нормальные учебники есть на моем сайте ( бесплатно), а уж про хелп молчу, он у тебя вместе с Дельфи
← →
MsGuns (2003-03-26 20:25) [9]
function SearchAnyPartByScan(tb: TTable; FldName: string;
Sbl: string; OptBof: boolean): result;
var
bm: TBookMark;
begin
result := false;
with Table1 do
begin
bm := GetBookMark(tb); // Запомнить исх.точку
if OptBof then
First; // Поиск с начала НД
while Not Eof
if pos(Sbl,FieldByName(FldName).AsString)>0 then
begin
result := true;
break;
end;
if not result then
GoToBookMark(bm); // Возврат в исх.точку
FreeBookMark(bm);
end;
end;
procedure Form1.Button1Click(Sender: TObject);
begin
Form1.Grid1.DataSource.Enable := false; // Не отображаем НД
if not SearchAnyPartByScan(Form1.Table1,"FIO",Form1.Edit1.Text,false) then
ShowMessage("Не найдена !");
Form1.Grid1.DataSource.Enable := true; // Отображаем НД
end;
← →
Officeman (2003-03-26 20:28) [10]эээээ... есть но мне лень =)
← →
MsGuns (2003-03-26 20:35) [11]>Officeman (26.03.03 20:28)
Блин, прочитал бы это пост раньше, не корячился, не мозолил бы руки. Прав был Johnmen, ох и прав !!!
← →
Officeman (2003-03-26 20:42) [12]Спасибо огромное.
зря вы так со мной.
← →
Anatoly Podgoretsky (2003-03-26 20:51) [13]MsGuns © (26.03.03 20:35)
В следующий раз не торопись, подожди когда он скажет, что именно в хелпе ему непонятно.
← →
Officeman (2003-03-26 20:53) [14]всё с вами ясно. спасибо за гостеприимство ...
← →
MsGuns (2003-03-26 20:56) [15]Как всегда, Пришел, Увидел (узнал), Нахамил
← →
Anatoly Podgoretsky (2003-03-26 20:58) [16]Ну так не последний раз приходит, скоро все его будут знать.
← →
Officeman (2003-03-26 21:03) [17]У вас что день несложился чтоли? на работе начальким наорал на вас или что ? почему нельзять просто помочь человеку, а ?
Я что такой сташный чтоли, лентяй? сегодня мне тяжело. завтра другому. на то этот форум был и придуман чтобы помогать друг другу или нет ? я думаю что всётаки вы нарисовали ошибочное мнение обо мне.
с Уважением, ОфисМен
← →
MsGuns (2003-03-26 21:08) [18]Приятно помочь человеку благодарному. Тому же, кто после легкого виртуального щелчка по лбу (и ведь за дело !), начинает строить из себя разобиженного, да еще и хамить учителю, - стыд и срам !!!
:)~
← →
Officeman (2003-03-26 21:11) [19]...
← →
MsGuns (2003-03-26 21:14) [20]???
← →
Officeman (2003-03-26 21:37) [21]это значит я промолчал. понял что был неправ и хочу исправится =/
← →
MsGuns (2003-03-26 21:44) [22];%)
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.011 c
