Konsolenanwendung: TextFile

[DeddyH]

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;
  try
    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>');
    writeln(s.CommaText);
    writeln('</böld>');
  end;
  finally
    s.Free;
  end;
  readln;

end.