A fájl megnyitása a kimenethez, 7. fejezet
Fájl megnyitása kimenetre
Mielőtt kiadna egy fájlt, meg kell nyitnia. Ha a kimeneti fájl generáló programot már használják, előfordulhat, hogy a program eredményeivel rendelkező fájl már létezik a lemezen. Ezért a programozónak el kell döntenie, hogyan kell kezelni a régi fájlt: cserélje ki a régi adatokat újakkal, vagy adj hozzá új adatokat a régihez. A régi verzió használatának módja a fájl megnyitásakor érvényes.
A fájl megnyitásához az alábbi módok lehetségesek:
- felülírja (írjon új fájlt egy meglévő tetejére vagy hozzon létre egy új fájlt);
- meglévő fájl hozzáadásával.
Ha új fájlt akar létrehozni vagy egy meglévõt kicserélni, új fájlt kell ismételni (f), ahol f egy TypeFile típusú fájlváltozó.
Annak érdekében, hogy megnyissa egy fájlt az ebben a fájlban lévő meglévő adatok hozzáadásának módjában, fel kell hívnia az Append (f) eljárást, ahol f egy TypeFile típusú fájlváltozó.
Az 1. ábrán. A 7.1 program a program párbeszédpaneljét mutatja, amely szövegfájlokat ír vagy ad hozzá.
Ábra. 7.1. A fájl írásához hozzáadandó párbeszédablak
A 7.1-es lista mutatja a felvétel gomb megnyomásával indított eljárást. Megnyitja a fájlt egy új fájl létrehozásakor, vagy egy meglévő fájl helyébe lép, és a Memo1 összetevő mezőjében írja le a szöveget.
Meg kell adnia a fájlnevet a Szerkesztés mezőben végzett munka közben. Megadhatja az előre definiált fájlnevet az alkalmazásformátum-fejlesztés során. Ehhez hozzá kell rendelnie egy értéket, például test.txt, az Edit1.Text tulajdonsághoz.
Lista 7.1. Új fájl létrehozása vagy meglévő fájl cseréje
eljárás TForm1.Button1Kattintson (Feladó: TObject);
f: Szövegfájl; // fájl
fName: String [80]; // fájlnév
Újratöltés (f); // nyitott a felülíráshoz
i: = 0 a Memol.Lines.Count do // stringek számozása nulla
CloseFile (f); // zárja be a fájlt
MessageDlg ('Data WRITTEN file', mtlnformation, [mbOk], 0);
A 7.2-es lista a Hozzáadás gombra kattintva indítja el a folyamatot. Megnyílik egy fájlt, amelynek a neve az Edit1 mezőben van megadva, és hozzáadja a Memol mező tartalmát.
Lista 7.2. Hozzáadás meglévő fájlhoz
eljárás TForm1.Button2Click (Sender: TObject);
f: Szövegfájl; // fájl
fName: String [80]; .// fájlnév
i: egész szám; kezdődik
Függelék (f); // nyitott hozzá
az i: = 0 a Memo1.Lines.Count do // stringek számozása nulla
CloseFile (f); // zárja be a fájlt
MessageDlg ("ADDED file file", mtInformation, [mbOk], 0);