Witam!
Musze zrobic prosta baze danych ale mam problem.
dodaj:
begin
clrscr;
ramka;
assign(tekst,'dane.txt');
append(tekst);
loscosob:=iloscosob+1;
writeln('Nazwisko: ');
readln(nazwisko[iloscosob]);
ramka_imie;
writeln('Imie: ');
readln(imie[iloscosob]);
ramka_numer;
writeln('Numer telefonu: ');
readln(numer[iloscosob]);
writeln(tekst,iloscosob);
t1:=0;
repeat
t1:=t1+1;
writeln(tekst,nazwisko[t1]);
writeln(tekst,imie[t1]);
writeln(tekst,numer[t1]);
until t1=iloscosob;
close(tekst);
end;
jak widac chce zrobic to na tablicach, ale gdy zapisuje to do pliku wyglada ta tak:
1
Nazwisko
Imie
Numer
2
Nazwisko
Imie
Numer
Nazwisko
Imie
Numer
3
Nazwisko
Imie
Numer
Nazwisko
Imie
Numer
Nazwisko
Imie
Numer
1 <---- Tutaj zapisuje sie od nowa gdy wylaczymy program i pozniej cos dodamy.
Nazwisko
Imie
Numer
Czy ktos wie jak zrobic aby te zapisane dane wygladaly tak:
3
Nazwisko
Imie
Numer
Nazwisko
Imie
Numer
Nazwisko
Imie
Numer
Pozdrawiam