Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.05 c