Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.008 c
4-44523
Dr. Web
2003-02-10 15:31
2003.04.14
Как програмно запустить другую программу под другим пользером


3-44007
vlgrig1961
2003-03-25 13:40
2003.04.14
Есть что-либо похожее на Refresh в TQuery


14-44417
Yakudza
2003-03-28 16:24
2003.04.14
D7


1-44127
stur
2003-04-03 10:58
2003.04.14
Можно ли имя компонента выбирать автоматически..


14-44372
sniknik
2003-03-25 22:55
2003.04.14
Куда подевалось





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский