TFile

Iz SDMS
Jump to navigationJump to search
Ta stran je trenutno še v izdelavi.

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 datoteke

Eof

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

RO Property TFile.Eof As Boolean
ResultBoolean.

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
ResultString.

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
ResultBooleanTrue - 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
ResultString.