...write to/read text files?

Author: Sven van Pletzen

Category: Files

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base