Witajcie serdecznie!
Jestem tutaj nowym członkiem, więc chciałbym się ze wszystkimi serdecznie przywitać.
Mam na zaliczenie zrobić program: Sklep spożywczy, oparty na wskaźnikach i strukturach dynamicznych. I to już jest.
Jednak prowadząca nie popuszcza i kazała dopisać funkcję robiącą zakupy i zapisującą zakupy do pliku .txt.
Procedurę zapisu do pliku umieściłem w pętli, bo nie mam innego pomysłu jak to zrealizować.
Gdy np. wybierzemy n produkty do zakupienia, to wtedy pętla z wpisem do pliku kręci n razy, czyli zapisujemy do pliku dane n razy. Z tym, że zapisany mam tylko ostatni produkt, bo funkcja rewrite kasuje to, co było poprzednio w pliku. Jak to ominąć? Tak, żeby plik nie był czyszczony, tylko by były do niego dane dopisywane?
Procedura:
{ZAPISYWANIE DO PLIKU LISTY ZAKUPOW}
procedure zakupy_do_pliku(glowa: pprodukt;ilosc_1:integer; do_zaplaty:real);
var plik:text;
begin
assign(plik, 'lista_zakupow.txt');
rewrite(plik);
writeln(plik,'ZAKUPILES:');
writeln(plik,'Nazwa produktu: ',glowa^.nazwa_produktu);
writeln(plik,'Wybrana ilosc produktu; ',ilosc_1);
writeln(plik,'Cena za produkt/y: ',do_zaplaty:3:2);
close(plik);
end;
Cały program tutaj:
[url]http://pastebin.com/02E4uUDj[/url]
Bardzo proszę o pomoc!