Поиск

[The Joker]

Помогите сделать поиск в TListbox по like
вот что у меня есть но он вроди не правильный только по целому названию ищет

if trim(edit4.Text)<>'' then
begin
DataModule4.query1.Close;
DataModule4.query1.SQL.Clear;
DataModule4.query1.SQL.Add('SELECT *');
DataModule4.query1.SQL.Add('FROM table\catik.db ');
DataModule4.query1.SQL.Add('WHERE LOWER(TRIM(Poroda))="'+ lowercase(trim(edit4.Text)) + '"');
DataModule4.query1.Open;
ListBox1.Clear;
for i:= 1 to DataModule4.Query1.RecordCount do
begin
listbox1.Items.Add(DataModule4.Query1.fieldbyname('Poroda').AsString);
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
DataModule4.Query1.Next;
end;
Memo1.Lines.LoadFromFile(DataModule4.Query1.fieldbyname('Put').asstring);
image1.Picture.LoadFromFile(DataModule4.Query1.fieldbyname('Kartinka').AsString);
end
else
begin
edit4.Text:= '';
 ref;
  form5.Label2.Caption:=ListBox1.Items.Strings[ListBox1.ItemIndex];
 
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[demon-sheff]

Я делаю так:

procedure TMain.SpeedButton1Click(Sender: TObject);
var i:integer;
  s:string;
begin
      s:='';
  for i:=0 to ListBox1.Items.Count - 1 do begin
    if i>0 then s:=s+',';
    s:=s+Format('''%s''',[ListBox1.Items[i]]);
  end;
      begin
  ClientDataSet3.Close;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add('SELECT DISTINCT req.REQUEST_NUMBER, RPO.CAD_NUMBER PREV_OBJ, RNO.CAD_NUMBER NEW_OBJ');
  SQLQ.SQL.Add('FROM REQUEST.REQUEST req');
  SQLQ.SQL.Add('LEFT JOIN REQUEST.REQUEST_PREV_OBJ rpo ON RPO.REQUEST_ID = req.id ');
  SQLQ.SQL.Add('LEFT JOIN REQUEST.REQUEST_NEW_OBJ rno ON RNO.REQUEST_ID = req.id ');
  SQLQ.SQL.Add(Format('WHERE rpo.CAD_NUMBER IN (%s)',[s]));
  SQLQ.SQL.Add(Format('OR RNO.CAD_NUMBER IN (%s)',[s]));
  SQLQ.Open;
  ClientDataSet3.Open;
   id1 := SQLQ.Fields[0].AsInteger;
  SQLQ.Close;
  SQLQ.SQL.Clear;
  SQLQ.SQL.Add( inttostr(id1));
  SQLQ.Open;
      SpeedButton10.Visible:=true;
      end;
end;

данные свои подставляй, принцип должен быть понятен