Konsolenanwendung: TextFile

[Klaus01]

Delphi-Quellcode:

program delupientry;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, StrUtils;

var
  upi: TextFile;
  filepath: String = 'C:\upm.his';
  line: String;
  s: TStringList;
  i: Integer; 


  { TODO -oUser -cConsole Main : Hier Code einfügen }

begin

  s := TStringList.Create;

  if FileExists(filepath) then
  begin
  {  AssignFile(upi, filepath);
    Reset(upi);
    while not Eof(upi) do
    begin
      ReadLn(upi, line);
      s.Add(line);
    end;
    CloseFile(upi);}
    s.loadFromFile(filepath);
    writeln('<böld>');

    for i:=0 to s.count -1 do
      writeln(s[i]);

    writeln('</böld>');
  end;
  readln;
  s.free // siehe Beitrag unten, habe ich vergessen, man wird halt auch älter

end.