Tips (1541)

Tip Bewertung (60):

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