Table Of Contents

Index

FileReadln (FileVar) : String

Example:

   ;- Copies a Text File

   var Source Dest Line

   FileAssign(Source,'COPYFROM.TXT')
   FileAssign(Dest,'COPYTO.TXT')

   FileOpen(Source)

   if FileResult <> 0
      Writeln 'Error ' FileResult ' while opening file.'
      ExitMenu
   endif

   FileCreate(Dest)

   if FileResult <> 0
      Writeln 'Error ' FileResult ' while creating file.'
      ExitMenu
   endif

   while not EndOfFile(Source)
      Line = FileReadln(Source)
      FileWriteln(Dest,Line)
   endwhile

   FileClose(Source)
   FileClose(Dest)

Category:	File

Table Of Contents

Index