814123
2017-11-27 15:26
采纳率: 100%
浏览 1.3k
已采纳

delphi ListView里利用EDIT进行模糊搜索?

delphi ListView里利用EDIT进行模糊搜索?

Listview里有4列,怎么利用edit进行4列里的任何一个符合的字符串进行查询,符合的出现在列表里?

  • 写回答
  • 好问题 提建议
  • 关注问题
  • 收藏
  • 邀请回答

8条回答 默认 最新

  • threenewbee 2017-11-27 15:50
    已采纳
     sql := "select * from 表 where 字段1 like '%" + edit1.Text + "%' or 字段2 like '%" + edit1.Text +"%' or 字段3 like '%" + edit1.Text + "%' or 字段4 like '%" + edit1.Text +"%'"; 
    
    已采纳该答案
    评论
    解决 无用
    打赏 举报
  • qq_41195579 2017-11-27 17:07

    sql := "select * from 表 where 字段1 like '%" + edit1.Text + "%' or 字段2 like '%" + edit1.Text +"%' or 字段3 like '%" + edit1.Text + "%' or 字段4 like '%" + edit1.Text +"%'";

    评论
    解决 无用
    打赏 举报
  • at286 2017-11-27 17:29

    procedure TForm1.Button1Click(Sender: TObject);
    var i: integer; SearchOK: boolean;
    begin
    SearchOK:= False;
    i:= 0;
    while (i <= ListView1.Items.Count-1) and (not SearchOK) do
    begin
    SearchOK:= (pos(Edit1.Text,ListView1.Items[i].Caption) <> 0);
    i:= i+1;
    end;
    if SearchOK then
    showmessage(Edit1.Text+' in Line #'+inttostr(i))
    else
    showmessage(Edit1.Text+' Not Found')
    end;

    评论
    解决 无用
    打赏 举报
  • qq_39564690 2017-11-27 18:06

    一个edit,一个listview,listview列表有vb,java,delphi,c,php,python,html,sql
    要实现:在edit中输入h,listview显示delphi,php,python,html
    该如何实现以上功能

    评论
    解决 无用
    打赏 举报
  • weixin_41198224 2017-11-28 00:39

    一个edit,一个listview,listview列表有vb,java,delphi,c,php,python,html,sql
    要实现:在edit中输入h,listview显示delphi,php,python,html
    该如何实现以上功能

    评论
    解决 无用
    打赏 举报
  • qq_27495855 2017-11-28 04:57

    var
    i:integer;
    begin
    SearchList:=TStringList.Create;
    cbbSearch.Items.Clear;
    for i:=0 to FileList.count-1 do
    begin
    if Pos(cbbSearch.Text,(Copy(ExtractFileName(FileList.Strings[i]),0,Pos('.',ExtractFileName(FileList.Strings[i]))-1)))>0 then
    begin
    cbbSearch.Items.Add(Copy(ExtractFileName(FileList.Strings[i]),0,Pos('.',ExtractFileName(FileList.Strings[i]))-1));
    SearchList.add(FileList.strings[i]);
    end;
    TComboBox(Sender).SelStart:=Length(TComboBox(Sender).Text);
    end;
    LZ,可以先将ListView中的items拿出来放到stringlist中,然后清空listview,对stringlist进行遍历,
    如果存在‘h’,则加入到listview中。

    评论
    解决 无用
    打赏 举报
  • likaihui_1129 2017-11-28 06:30

    界面:一个edit,一个listview,listview列表有vb,java,delphi,c,php,python,html,sql
    要实现:在edit中输入h,listview显示delphi,php,python,html
    该如何实现以上功能

    评论
    解决 无用
    打赏 举报
  • qq_41142929 2017-11-28 06:37

    界面:一个edit,一个listview,listview列表有vb,java,delphi,c,php,python,html,sql
    要实现:在edit中输入h,listview显示delphi,php,python,html
    该如何实现以上功能

    评论
    解决 无用
    打赏 举报

相关推荐 更多相似问题