Konsolenanwendung: TextFile

[cherry]

Ok hier mein ganzer Code:

Delphi-Quellcode:

program delupientry;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, StrUtils;

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


  { 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);

    writeln('<böld>');
    writeln(s.CommaText);
    writeln('</böld>');
  end;
  readln;

end.