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

← →
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]

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

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

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