Witajcie, poszperałem po forum ale nie znalazłem kompletnej odpowiedzi.
Mam program taką mini baze która:
1.Dodaje nowu samochód,
2.Wyświetla wszystkie samochody,
3.Wyświetla dane wybranego samochodu,
4.Wyjście z bazy.
i musze dodać 2 rekordy, które:
-usunięcie wybranego elementu,
-zmieni zawartoś wybranego elementu
Jak będzie wyglądał taki kod tych dwóch rekordów i gdzie je wstawić.
A o to program:
PROGRAM Piotr;
USES CRT;
CONST
PLIK='C:\ja\ta.txt';
TYPE
MODEL =RECORD
MARKA:STRING;
MODEL:STRING;
ROK:STRING;
POJEMNOSC:STRING;
END;
VAR
B:STRING;
D:TEXT;
A:CHAR;
R:MODEL;
PL:FILE OF MODEL;
BEGIN
CLRSCR;
ASSIGN(PL,PLIK);
REPEAT
CLRSCR;
WRITELN('BAZA SAMOCHODOW: WYSWIETLA INFORMACJE O SAMOCHODACH NASZEJ FIRMY');
WRITELN('1-DODAJ NOWY SAMOCHOD');
WRITELN('2-WYSWIETL WSZYSTKIE SAMOCHODY');
WRITELN('3-WYSWIETL KONKRETNY SAMOCHOD');
WRITELN('4-WYJSCIE Z BAZY');
A:=(READKEY);
IF A='1' THEN
BEGIN
{$I-}reset(pl);{$I+}
IF ioresult=0 then
BEGIN
SEEK(PL,FILESIZE(PL));
WRITELN('WPISZ DANE DOT. SAMOCHODOW');
WRITELN('PODAJ NAZWE MARKI');
READLN(R.MARKA);
IF R.MARKA<>'' THEN
BEGIN
WRITELN('PODAJ MODEL');
READLN(R.MODEL);
WRITELN('PODAJ ROK PRODUKCJI');
READLN(R.ROK);
WRITELN('PODAJ POJEMNOSC');
READLN(R.POJEMNOSC);
WRITE(PL,R);
WRITELN('DANE ZAPISANE');
READLN;
END {END OF IF}
ELSE
BEGIN
WRITELN('BRAK DANYCH DO ZAPISANIA,POWROT DO MENU');
READLN;
END {END OF ELSE}
END
ELSE
BEGIN
WRITELN('BRAK PLIKU BAZY PRZYSTEPUJE DO TWORZENIA');
REWRITE(PL);
WRITELN('PODAJ DANE DO WPISANIA');
WRITELN('PODAJ NAZWE');
READLN(R.MARKA);
WRITELN('PODAJ MODEL');
READLN(R.MODEL);
WRITELN('PODAJ ROK');
WRITELN('PODAJ POJEMNOSC');
READLN(R.POJEMNOSC);
READLN(R.ROK);
WRITE(PL,R);
WRITELN('DANE ZAPISANE');
READLN;
END
END; {END OF WYBOR 1}
IF A='2' THEN
BEGIN
WRITELN('WYSWIETLANIE WSZYSTKICH REKORDOW');
{$I-}reset(pl);{$I+}
IF ioresult=0 then
BEGIN
WHILE NOT EOF(PL) do
BEGIN
READ(PL,R);
WRITELN('MARKA : ',R.MARKA);
WRITELN('MODEL: ',R.MODEL);
WRITELN('ROK PRODUKCJI : ',R.ROK);
WRITELN('POJEMNOSC :', R.POJEMNOSC);
END;
END
ELSE
BEGIN
WRITELN('BRAK PLIKU BAZY');
READLN;
END;
READLN;
END; {END OF WYBOR 2}
IF A='3' THEN
BEGIN
{$I-}reset(pl);{$I+}
IF ioresult=0 then
BEGIN
WRITELN('WPISZ MARKE SAMOCHODU');
READLN(B);
RESET(PL);
WHILE NOT EOF(PL) DO
BEGIN
READ(PL,R);
IF B=R.MARKA THEN
BEGIN
WRITELN('NAZWA ',R.MARKA);
WRITELN('MODEL ',R.MODEL);
WRITELN('ROK PRODUKCJI ',R.ROK);
WRITELN('POJEMNOSC ',R.POJEMNOSC);
END
END {end of while}
END; {end of ioresult}
WRITELN('NACISNIJ ENTER');
READLN;
END; {END OF WYBOR 3}
IF A='4' THEN
BEGIN
WRITELN('ZAKONCZENIE PROGRAMU');
END;
UNTIL A='4';
wRITE('KONIEC PRORAMU');
READLN;
END.