[Кодер]

Фильтрование

Код:

procedure TForm1.cbChange(Sender: TObject);
var
f:tstringlist;i:integer;
begin
f:=tstringlist.Create;
f.LoadFromFile('list.txt');
for i:=0 to f.count-1 do
  begin
  if cb.text=Copy(string(f.Strings[i]),1,length(cb.text)) then cb.AddItem(string(f.Strings[i]),cb);
  end;
  end;