Példák használó programok a fájlokat

8. Készítsünk programot, amely hozza a fájl FILE123 valós számok (random), a kimeneti fájlt a képernyő határozza meg a fájl méretét, és megjeleníti a tartalmát egy véletlen elem

A program új funkciók és eljárások közvetlen hozzáférést, ha dolgozik, gépelt fájlokat:

FileSize (VARf): Longint - visszaadja az aktuális fájl méretét a nyilvántartásban, vagyis Fájl mérete byte lehet szorzatából ez az érték a mérete egy rekordot.

Seek (VARf ;. N Longint); - határozza meg az új értéket a fájl mutatót. Jelentését a fájl mutatót egyenlő a számát az utolsó rekord feldolgozása, így a jelenlegi rekord szám egyenlő az n + 1. Tehát, hogy állítsa be a mutatót az első rekordot, meg kell keresni (f, 0). és végül - Seek (F, FileSize (f) -1).

VAR f. FILE Real;

9. opciós program megoldások példa №8 (rövidített)

A program során egy új, különleges eljárás a nyílt és olvasni-írni, ha dolgozik, bináris fájlok, mert olvasási / írási végezzük blokkok egy bizonyos méretet:

Paraméter RecSize - ez bájt hosszúságú rekord. IO bináris fájl lehet végezni részei, amelyek többszörösei a hossza a felvétel. Amikor megnyit egy fájlt a rekordot hossza 1 byte, akkor a fájl tartalmaz adatokat.

Itt Buf - bármelyik változó, gróf - a szám a bemeneti vagy kimeneti bejegyzések

A beépített függvény sizeof (változó vagy típus) vissza a maximális méretet elfoglalt változó vagy argumentum típusának