TFile
Razred TFile je namenjen branju in pisanju tekstovnih datotek.
Uporaba
TFile lahko skreiramo na tri načine. Za branje obstoječe datoteke uporabite OpenFile. Za narediti novo datoteko in izbrisati obstoječo, če obstaja uporabite CreateFile. Za dodajanje v obstoječo datoteko uporabite AppendFile.
POZOR: Vedno uporabite metodo Close, ki zapre datoteko in uniči razred TFile.
Nasvet: Uporabite razred TFile za delo z velikimi tekstualnimi datotekami (večjimi kot nekaj MB). Za manjše datoteke, je lažje uporabiti TStringList.Load.
Dim T as TFile, I as Long
Dim a as String
// Kreiranje datoteke za zapis
T = CreateFile ('c:\datoteka.txt')
Hint (T.FileName)
For I = 0 To DrawList.Count - 1 // Za vse plasti v tematike
a =DrawList.Items (I).Layer.Name
T.NextLine = a // zapiše ime v datoteko
Next
T.Close // Zaprtje datoteke
// Odprtje datoteke za branje
T = OpenFile ('C:\Datoteka.txt')
While not T.eof // Zanka, do konca datoteke
a = a + T.NextLine + line // Preberi vrstico
Wend
T.Close // Zaprtje datoteke
Message ("Vse plasti v tematiki", a)
// Kreiranje datoteke za zapis
T = AppendFile ('C:\Datoteka.txt')
For I = 0 To DrawList.Count - 1 // Za vse plasti v tematiki
a = DrawList.Items (I).Layer.Name // adds line to file
T.NextLine = a
Next
T.Close // Zaprtje datotekeEof
Lastnost Eof določa vrednost True, če je končano branje v sekventni datoteki.
| RO Property TFile.Eof As Boolean | ||
| Result | Boolean | . |
NextLine
Lastnost NextLine vrne ali nastavi vrednost v naslednji vrstici datoteke. Za branje iz datoteke mora biti razred tipa TFile kreiran z OpenFile funkcije, za zapis pa z CreateFile ali pa z AppendFile funkcijo.
| Property TFile.NextLine As String | ||
| Result | String | . |
Close
Metoda Close zapre datoteko in sprosti objekt tipa TFile.
| Method TFile.Close |
Buffered
Lastnost Buffered določa, ali se zapiše vsaka vrstica v file ali pa se piše v blokih.
| Property TFile.Buffered As Boolean | ||
| Result | Boolean | True - vsaka vrstica se takoj zapiše (počasno, primerno za log datoteke). False - V file se zapiše več vrstic naenkrat (hitro, primerno za izvoze podatkov). |
FileName
Lastnost FileName določa ime odprte datoteke.
| RO Property TFile.FileName As String | ||
| Result | String | . |