1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

uses Masks;


procedure Search;
var i, int : integer;
tmpstring : string;
begin
  if Form12.edit1.Text = '' then begin
  Form12.Display.Items := Form12.Listbox1.Items;
  exit;
  end;
  Form12.tmp.Clear;
  Form12.Display.Clear;
  ParseDelimited(Form12.tmp.Items, trim(Form12.edit1.Text), ' ');
  tmpstring := '*';
  for int := 0 to Form12.tmp.Count - 1 do begin
  tmpstring := tmpstring+Form12.tmp.Items.Strings[int]+'*';
  end;
    for i := 0 to Form12.ListBox1.Count - 1 do
      begin
        if MatchesMask(AnsiUpperCase(Form12.ListBox1.Items.Strings[i]), AnsiUpperCase(tmpstring)) = true then
        begin
          Form12.Display.Items.Add(Form12.listbox1.Items.Strings[i]);
        end;
      end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

for i := 0 to Form12.ListBox1.Count - 1 do
begin
  for i:= 0 to tmp.count-1 do begin
    ok:= pos(tmp[i],Form12.listbox1.Items.Strings[i])>0;
    if not ok then break;
  end;
  if ok then
  begin
    Form12.Display.Items.Add(Form12.listbox1.Items.Strings[i]);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TCustomListBox.SetItems(Value: TStrings);
begin
  if Style in [lbVirtual, lbVirtualOwnerDraw] then
    case Style of
      lbVirtual: Style := lbStandard;
      lbVirtualOwnerDraw: Style := lbOwnerDrawFixed;
    end;
  Items.Assign(Value);
end;					

1:
2:
3:
4:
5:

Type
  TFoobar = Class
  Public
     Items : TStrings;
  End;					

1:
2:
3:
4:
5:

Type
  TCoolFoobar = Class
  Public
     Property Items : TStrings Read GetItems Write SetItems;
  End;