Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Поиск файлов по названию или члючевому слову   Найти похожие ветки 

 
Wayne ©   (2010-06-03 13:44) [0]

не могу понять почему не работает поиск, помогите исправить
procedure TForm12.Button1Click(Sender: TObject);
var maxWidth, i:integer;
begin
 ListBox1.Clear;
 Form1.ADOTable1.Filtered:=FALSE;
 if RadioButton1.Checked=TRUE then
   Form1.ADOTable1.Filter:="[FileName]"+" Like "+chr(39)+Edit1.Text+"*"+chr(39)
 else
   Form1.ADOTable1.Filter:="[slova]"+" Like "+chr(39)+"*"+Edit1.Text+"*"+chr(39);
 Form1.ADOTable1.Filtered:=TRUE;
 Form1.ADOTable1.First;
 if Form1.ADOTable1.Fields.FieldByName("FileName").AsString="" then
     ShowMessage("Поиск не дал результатов!");
 For i:=1 to Form1.ADOTable1.RecordCount do
 begin
   ListBox1.Items.Add(Form1.ADOTable1.Fields.FieldByName("put").AsString);
   Form1.ADOTable1.Next;
 end;
 ListBox1.ItemIndex:=0;

 maxWidth := 0;
 with ListBox1 do
   for i := 0 to Items.Count - 1 do
     if maxWidth < Canvas.TextWidth(Items.Strings[i]) then
       maxWidth := Canvas.TextWidth(Items.Strings[i]);
 ListBox1.Perform(LB_SETHORIZONTALEXTENT, maxWidth + 400, 0);
end;


 
Игорь Шевченко ©   (2010-06-03 13:57) [1]


> не могу понять почему не работает поиск


Я тоже не могу понять


 
Ega23 ©   (2010-06-03 14:02) [2]

расширение не учитывается.
З.Ы. Код ужасен.


 
RWolf ©   (2010-06-03 14:23) [3]

да вроде не особенно и ужасно; ну, плохое знание Паскаля разве что.


 
Anatoly Podgoretsky ©   (2010-06-03 14:33) [4]

А где тут поиск?



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

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

Наверх




Память: 0.47 MB
Время: 0.12 c
15-1265188639
12
2010-02-03 12:17
2010.08.27
Тем, кто работал с Oracle и MSSQL. C чем Вам удобнее показалось?


15-1268762686
TStas
2010-03-16 21:04
2010.08.27
Как заставить подпрограмму считать быстрее


2-1270623897
Девушка
2010-04-07 11:04
2010.08.27
Динамическое создание FibQuery как поле класса


15-1268415749
Leonid Troyanovsky
2010-03-12 20:42
2010.08.27
by Riply


2-1269701259
Semnich
2010-03-27 17:47
2010.08.27
Помогите с задачкой