Работа с текстовыми файлами

// Create a new text file and write some text into it 

procedure
 NewTxt;
 var

   f: Textfile;
 begin

   AssignFile(f, 'c:ek.txt'); {Assigns the Filename}
   ReWrite(f); {Create a new file named ek.txt}
   Writeln(f, 'You have written text into a .txt file');
   Closefile(f); {Closes file F}
 end
;

 // Open existing text file and append some text 
procedure
 OpenTxt;
 var

   F: Textfile;
 begin

   AssignFile(f, 'c:ek.txt'); {Assigns the Filename}
   Append(f); {Opens the file for editing}
   Writeln(f, 'You have written text into a .txt file');
   Closefile(f); {Closes file F}
 end
;

   // Open existing text file and show first line 
procedure
 ReadTxt;
 var

   F: Textfile;
   str: string
;
 begin

     AssignFile(f, 'c:ek.txt'); {Assigns the Filename}
   Reset(f); {Opens the file for reading}
   Readln(f, str);
   ShowMessage('1. line of textfile:' + str);
   Closefile(f); {Closes file F}
 end
;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!