Základy práce se soubory
Vytvoření souboru
 Tisk

Vytvoření souboru


Pro vytváření souboru se používají tyto standardní procedury a funkce:


assign, rewrite, ioresult, write/writeln, close


Následující příklad ukazuje vytvoření souboru na disketě.

program vytvor;


{$APPTYPE CONSOLE}

// Projekt: PP01 Autor:Kopeček Datum: 13.4.2005

// Funkce: Vytvoření souboru a naplnění daty z klávesnice

uses

SysUtils;

const

    JMENO_SOUB = 'a:vytvor.txt'; // soubor na disketě

var

    f:text;     // deklarace textového souboru

    c:char;

    s:string;

begin

    assign(f,JMENO_SOUB);     // přiřazení jména souboru a souboru na disku

{$I-}                         // vypnutí standardního ošetření chyb

    reset(f);                 // pokus o otevreni

    if ioresult = 0 then begin // soubor existuje

        writeln('soubor existuje / chcete ho prepsat? (A/N)');

        readln(c);

        if (c <> 'a') and (c<>'A') // zachovat soubor

           then halt;         // okamžité ukončení programu

    end;

    rewrite(f);               // otevření pro zápis

    if ioresult <> 0 then begin // test zda nedošlo k chybě při otevření

                              // například disketa není v mechanice

        writeln('chyba pri otevirani souboru',JMENO_SOUB);

        readln;               // čekání na operátora

        halt;                 // okamžité ukončení programu

    end;

    repeat

        writeln('zapis dalsi radku:');

        readln(s);            // čtení řádky z klávesnice

        writeln(f,s);         // zápis textu

                              // ošetření chyby - například přeplnění diskety

        if ioresult <> 0 then begin

           writeln('Plna disketa ?');

           readln;

           halt;

        end;

    until eof;                // konec souboru (z klávesnice Ctrl+Z)

    close(f);

    writeln('Konec programu');

    readln;

{$I+}                         // zapnutí standardního ošetření chyb

end.