Datei ausgeben in Konsolenanwendung

[Michael Habbe]

Vielleicht ganz einfach so:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f: Textfile;
begin
  if ParamStr(1) = '/h' then
  begin
    AssignFile(f, ChangeFileExt(ParamStr(0), '.hlp'));
    Rewrite(f);
    WriteLn(f, 'Hier kommt die Hilfe:');
    WriteLn(f, '... noch mehr ...');
    CloseFile(f);
  end;
end.