TFile

Ta stran je trenutno še v izdelavi.

Razred TFile je namenjen branju in pisanju tekstovnih datotek.

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 datoteke

Close

Metoda Close zapre datoteko in sprosti objekt tipa TFile.

Method TFile.Close

Eof

Lastnost Eof določa vrednost True, če je končano branje v sekventni datoteki.

RO Property TFile.Eof As Boolean
Result	Boolean	.

FileName

Lastnost FileName določa ime odprte datoteke.

RO Property TFile.FileName As String
Result	String	.

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	.