البحث بطريقة جميلة... فلتر للأسماء الغير مراد بها؟

[kachwahed]

السلام عليكم
محاولة تعطيك فكرة:

PHP كود :

uses StrUtils;
...
procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
  Sl: TStrings;
begin
  Sl := TStringList.Create;
  for i := 0 to ListBox1.Count-1 do
    if AnsiContainsText(ListBox1.Items[i], Edit1.Text) then
      Sl.Add(ListBox1.Items[i]);
  ListBox1.Clear;
  ListBox1.Items := Sl;
  Sl.Free;
end;