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
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;