Jak upravit kód pro zápis a vyhledavaní zaznamů – Pascal – Fórum – Programujte.com

Zdravím
Na této adrese http://www.trsek.com/pas/telefonje k dispozici aplikace telefon:
Zajímalo by mne,jak by se dala upravit aby se hodnoty zapisovali do samostatneho txt souboru a pomocí nej byli i údaje načítány.

Děkuji za jakýkolliv nápad..

Assign, Reset, Readln, Rewrite, Writeln, Close.
Projdi seznam v nějakém cyklu (nejlépe For) a čti/zapisuj z/do souboru každou položku (jméno, číslo...) samostatně.

díky za radu,zápis bych ještě jakž takž zvládnul,ale jak pak udělat pomocí cyklu for ten zápis jednotlivých údajů a hlavně,jak an čtení a třídění?Nemohl by jsi tu myšlenku více rozvést?
Jinak velice díky za předchzí odpověď...

Zápis:

for i:=prvni to posledni do

  begin

  writeln(soubor,pole[i].prvnivec);

  writeln(soubor,pole[i].druhavec);

  ...

  end;

for i:=prvni to posledni do

  begin

  readln(soubor,pole[i].prvnivec);

  readln(soubor,pole[i].druhavec);

  ...

  end;

Děkuji a když je tam už metoda třídění Bubble sort použita přímo v tom prvně zmiňovaném progaramu,tak jak to vše prosímtě implentovat do sebe..vlastně jedniný problém,co tam je, je v tom že nyní ten program neuchovává data v souboru a já bych potřeboval aby dělal to co dělá teď akorát že do souboru...(doufám že jsem to vysvětlení moc nezamotal:).

PS:
Mě opravdu pascal jako strukt. jazyk díky našemu učiteli moc k srdci nepřirostl takže proto se pořád takto tupě vyptávám..

Nějak jsem nepochopil, co máš přesně za problém. Zápis do souboru jsem ti předvedl, jestli to chceš s identifikátory jako jsou v tom programu, tak by to vypadalo takhle:

for p:=1 to poc do begin writeln(soubor,zoznam[p].meno); ...

  ...

   end;

 until (i=5);

 window(1,1,80,25);

 textbackground(black);

 textcolor(white);

 clrscr;

end.

Díky zní to celkem srozumitelně,až příjdu ze školy hned se an to podívám a během odpoledne sem dám určitě vědět,k čemu jsem došel...

Tak jsem se dal do toho a hned ze zacatku problem:po te co jsem prejmenoval to pole text,kvuli tomu,ze je to rezervovane ,posel jsem k problému,že netuším přesně kam přidat ten zápis,měl jsem za zo,že to bude hned na začátku ale proměnná p,je definována až někde na 380 řádku,takže kam by to vlastně mělo přijít,tipuji,že spíše k tomu 380,jelikož tam probíhá výpis do screenu..

To je celkem jedno, kam to přesně dáš. Cílem je někam do toho case (je jedno jestli na začátek, na konec nebo někam doprostřed) přidat výkonný kód pro ukládání a do hlavního menu pár řádků, na kterých bude napsáno, co se má zmáčknout. Zbytek programu může zůstat víceméně bez úprav.

  until (ch in ['n','N']);

       end;

...třeba tady máš místo...

   4:begin

        textbackground(blue);window(1,1,80,25);clrscr;

        if zpoc>0 then begin