Nyílás a kimeneti fájl
Nyílás a kimeneti fájl
Mielőtt a visszavonását kell, hogy nyissa meg a fájlt. Ha a program létrehoz egy kimeneti fájl már használatban van, akkor lehetséges, hogy egy fájlt a program eredményeit már a lemezen. Ezért a programozónak kell dönteni, mi köze a régi fájlt: cserélje ki a régi adatokat az új, vagy új adatokat adunk a régi. A módszer segítségével a régi verzió határozza idején a fájl megnyitása.
Lehetséges módok fájl megnyitásakor írásra bele:
- Átjátszás (új felvétel fájl a meglévő vagy új fájlt hoz létre);
- hozzáadni egy meglévő fájlt.
A fájl megnyitásához a módban a létrehoz egy új fájlt, vagy cserélje ki egy meglévő, fel kell hívnia a átírási eljárás (f), ahol f - a fájltípust változó TextFile.
Annak érdekében, hogy nyissa meg a fájlt hozzáfűzési mód a meglévő tárolt adatok ebben a fájlban, meg kell hívni hozzáfűzése eljárás (f), ahol f - a fájltípust változó TextFile.
Ábra. 7.1 ábra a Program párbeszédablak, amely a felvétel vagy hozzáadott egy szöveges fájlt.
Ábra. 7.1. Párbeszédablakban adni egy felvételt egy fájlt
Listing 7.1 ábra az eljárás, amely megnyomásával indítható egy nyomógombbal Record. Ez megnyitja a fájlt a mód, létrehozva egy új vagy egy meglévő fájlt, írja a szöveget, amely a területen Memo1 komponenst.
A fájl neve kell beírni, miközben dolgozik Editl területen. Beállíthatjuk az alapértelmezett fájlnév a fejlesztés során a jelentkezési lapot. Erre a célra szükséges értéket rendelni a például test.txt, ingatlan Edit1.Text.
Listing 7.1. Létrehozva egy új vagy meglévő fájl cseréje
eljárás TForm1.Button1Click (Sender: TObject);
F: TextFile; // fájl
fname: String [80]; // fájlnév
Átírása (f); // megnyitja a szinkronizálásra
i: = 0 Memol.Lines.Count do // húrok vannak számozva nulla
CloseFile (f); // bezárja a fájlt
MessageDlg ( 'adatok egy fájlba', mtlnformation, [mbOk], 0);
Listing 7.2 ábra az eljárás, amely megnyomásával indítható egy nyomógombbal Add. Ez megnyitja a fájlt, amelynek neve van megadva Edit1 mezőbe, majd hozzáadja a mező tartalmát Memol.
Listing 7.2. Létező fájlhoz
eljárás TForm1.Button2Click (Sender: TObject);
F: TextFile; // fájl
fname: String [80]; .// fájlnév
i: integer; kezdődik
Hozzáfűzése (f); // nyitva feltöltések
i: = 0 Memo1.Lines.Count do // húrok vannak számozva nulla
CloseFile (f); // bezárja a fájlt
MessageDlg ( 'adatokat hozzáadjuk a fájl', mtInformation, [mbOk], 0);