| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск файлов по названию или члючевому слову [D7]

Wayne ©   (2010-06-03 13:44:00) 

не могу понять почему не работает поиск, помогите исправить
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;

---

Anatoly Podgoretsky   (2010-06-03 14:33:00) [1]

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

---

RWolf   (2010-06-03 14:23:00) [2]

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

---

Ega23   (2010-06-03 14:02:00) [3]

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

---

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

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


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

---

Наверх