Základy práce se soubory
Odstranění souboru
 Tisk

Odstranění souboru


Pro odstranění souboru se používají tyto standardní procedury a funkce:


assign, reset, ioresult, close, erase


Následující příklad ukazuje odstranění souboru z diskety.


program zrus;


{$APPTYPE CONSOLE}

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

// Funkce: Odstranění souboru z diskety

uses

SysUtils;


const

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

var

    f:text;     // deklarace textového souboru

    c:char;


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 odstranit? (A/N)');

        readln(c);

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

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

    end else begin

         writeln('soubor ',JMENO_SOUB,' neexistuje / nelze odstranit');

         readln;

         halt;

    end;

    close(f);

    if ioresult <> 0 then begin // nepravdepodobna chyba

       writeln('chyba pri zavirani souboru');

       readln;

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

    end;

    erase(f);                 // odstraneni

    if ioresult <> 0 then begin

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

       readln;

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

    end else

       writeln('soubor ', JMENO_SOUB,' odstranen');

    writeln('Konec programu');

    readln;

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

end.