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

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

// 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com