Pomoc_uloha – Pascal – Fórum – Programujte.com

caute.
potreboval by som pomoc(neviem aku velku) s jednou ulohou. Zadanie je vytvorit aplikaciu telefonny zoznam(txt subory), ktora bude dovolovat uzivatelovi vytvorit zoznam, pridat kontakt, zmazat zoznam vyhladat kontakt... Tuto ulohu som riesil odovzdal dostal spat riesil odovzdal dostal spat. Posledny dovod vratenia ulohy bolo :funkcia/procedura by mala pracovat iba s lokalnymi objektmi(parametre, lokalne premenne) a mala by byt vseobecna a pokial je to mozne robit jednu vec (zapisat zaznam, ktory jej bol predany ako parameter, do kartoteky a nie ho aj
nacitat)....... moje riesenie: http://www.upnito.sk/subor/dbabb952d3d8dc379f48721075c8bc9c.html

vazne neviem ako tieto chyby odstranit a mam uz len posledny pokus na odovzdanie..... dufam, ze sa najde niekto kto vie ako s touto ulohou pohnut a opravit nevyhovujuci algoritmus....za pomoc dakujem
kontakt: azbestko@azet.sk

Dovnitř do procedury dostaneš přes parametr cokoli. Ven potom buď jako návratovou hodnotu (jen u funkcí) nebo přes parametr se slovem var. Tady máš příklad - úprava tvojí procedury na otvírání seznamu:

function Otvor(var soubor:zoznam):boolean;

Begin

Assign(soubor,'adresar.bin');

{$I-}

Reset(soubor);

{$I+}

if IOResult<>0 then Rewrite(soubor);

otvor:=FileSize(soubor)<>0;

End;

prazdny:=not otvor(f);