Witam. Mam problem z projektem który muszę zrobić. Mianowicie muszę napisać program zapisujący do pliku tablice rekordów zawierającą dane na temat książek (id, tytuł, autor, rok wydania i dostepność).
Program musi zawierać menu w którym będzie wpisywanie danych, wypisywanie, szukanie według poszczególnych danych ksiażki i kasowanie danych.
Proszę o pomoc w napisaniu fragmentu kodu dotyczącego wyszukiwania danych wg np. tytułu.
'3':begin
writeln('Podaj wg czego chcesz przeszukiwac baze: ');
writeln('3.1 Tytul.');
writeln('3.2 Autor.');
writeln('3.3 Rok wydania.');
writeln('3.4 Wydawnictwo.');
writeln('3.5 Dostepnosc.');
readln(co2);
clrscr;
case co2 of
'1':begin
writeln('Przeszukujesz baze wg tytulu!!!');
writeln;
writeln;
write('Podaj tytul: ');
readln(bajt);
writeln;
assign(baza,'beta2.txt');
reset(baza);
writeln;
while not eof(baza) do
if (bajt)=(tab.tytul) then
begin
read(baza,tab);
textcolor(12);
write('ID ');
textcolor(15);
writeln(tab.id);
textcolor(12);
write('TYTUL ');
textcolor(15);
writeln(tab.tytul);
textcolor(12);
write('AUTOR ');
textcolor(15);
writeln(tab.autor);
textcolor(12);
write('ROK WYDANIA ');
textcolor(15);
writeln(tab.rokwyd);
textcolor(12);
write('WYDAWNICTWO ');
textcolor(15);
writeln(tab.wydaw);
textcolor(12);
write('DOSTEPNOSC ');
textcolor(15);
writeln(tab.dost);
end
else write('Brak takiego tytulu w bibliotece');
end;
end;
end;
end;
close(baza);
Po wpisaniu tytułu który ma wyszukać, za kazdym razem wyswietla: 'Brak takiego tytulu w bibliotece'.
Z góry dziękuje ;)