Главная страница
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.05 c
15-1268292135
boriskb
2010-03-11 10:22
2010.08.27
ACADEMIA


2-1270804414
droidron
2010-04-09 13:13
2010.08.27
Mozzilla handle


15-1274271369
XXL
2010-05-19 16:16
2010.08.27
Есть ли способ корректно рисовать анимацию под терминалкой ?


2-1274238844
NBAH1990
2010-05-19 07:14
2010.08.27
Не нажимается клавиша по коду


15-1274432547
boriskb
2010-05-21 13:02
2010.08.27
Можно не всё сразу а выборочно?