1

Filelistbox編集コンポーネントで文字列を検索する方法を知りたいです。の内容Filelistboxは約100個のtxtファイルです。半分の解決策がありますが、結果をFilelistboxではなくに追加したいですListbox。何か案が？そして、Listbox1を使用する必要がありますか、それとも何とかせずに作成できますか? 助けてくれてありがとう、私の英語でごめんなさい:)！

procedure TForm1.Edit1Change(Sender: TObject);
begin
  If Edit1.Text = EmptyStr then
    ListBox1.Items := FileListBox1.Items
  else
  begin
    ListBox1.Clear;
    For I := 0 To Pred(FileListBox1.Items.Count) do
    begin
      If AnsiPos(Edit1.Text, FileListBox1.Items[I]) <> 0 then
      begin
        ListBox1.Items.Add(FileListBox1.Items[I]);
      end;
    end;
  end;
end;
4

1 に答える 1

3

おそらく、組み込みのMaskプロパティを利用できます。以下のようなものが、期待どおりにファイルをフィルタリングすると思います。

procedure TForm1.Edit1Change(Sender: TObject);
begin
  FileListBox1.Mask := '*' + Edit1.Text + '*';
end;

マスクの仕組みについては、ドキュメントを参照してください。

于 2012-11-09T20:51:11.350 に答える