// Create a new text file and write some text into it procedureNewTxt; 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
;