FileOpen

Prev Next Home Home Table Of Contents Index

FileOpen (FileVar)

Opens a file for access. FileOpen is not needed if you are using the ReadTextFile command. The following example copies a text file. 


   var Inp Out St


   FileAssign(Inp,'INPUT.TXT')
   FileOpen(Inp)
   FileAssign(Out,'OUTPUT.TXT')
   FileCreate(Out)
   while not EndOfFile(Inp)
      St = FileReadln(Inp)
      FileWriteln(Out,St)
   endwhile
   FileClose(Inp)
   FileClose(Out)
See Also: FileResult

Category: File

Prev Next Home Home Table Of Contents Index

Sponsors
Shopping 		Forum
Forum 		email
EMail 		Index
Index 		Home
Home