Szukanie z filtrami w pliku typowanym

0

Witam, mam problemik. Otóż chodzi o to, iż nie wiem jak zabrać się do pisania szukarki rekordu w pliku typowanym. Mam na formie edity i 2 comba. Pierwszy edit zawiera tytuł, drugi wydawnictwo, trzeci producenta, w combach mam listę z latami. Chciałbym, aby w listbox znajdowały się wyniki wyszukiwania. Problem polega na tym, że jeżeli user wpisze tylko tytuł to ma szukać tylko po tytule, gdy wpisze tytuł i wydawnictwo to wyniki mają spełniać oba te warunki, albo gdy wpisze wydawnictwo i wybierze przedział lat w combach to wyniki również mają spełniać tylko te warunki. Z jednym polem już szukać potrafię, ale z kilkoma i w zależności od ustawionych filtrów wyszukiwania jeszcze nie. Proszę o pomoc.

0
var
  rec: Trec; //twój rekord
  f: file of TRec; //plik
  pasuje: Boolean;
begin
  //otwrcie pliku
  while not eof(f) do
  begin
    Pasuje := True;
    Read(f, Rec);
    if (edt1.Text <> '') and (edt1.Text <> Rec.poletxt1) then
      pasuje := False;
    if (edt2.Text <> '') and (edt2.Text <> Rec.poletxt2) then
      pasuje := False;
    if (cb1.Text <> '') and (cb1.Text <> Rec.polecb1) then
      pasuje := False;
    if pasuje then
    begin
      //znaleziony
    end;
  end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1