[pascal] Problem z zapisem do pliku.

0

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

0

Musisz najpierw otworzyć plik do odczytu i sprawdzić do której cyfry już doliczyło..
lub zapisywać gdzieś tą informacje ;) np. w pierwszej linijce tego pliku lub ostatniej, w osobnym pliku lub rejestrze :P

0

Cześć, czy masz zmienne t1 i suma?

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0