Programm mit Parameterausgabe erstellen

[Furtbichler]

Delphi-Quellcode:

program Add;
uses
  SysUtils;

{$APPTYPE CONSOLE}
Begin
  If ParamCount<>2 then
    Writeln ('Usage: '+ExtractFilename(Paramstr(0))+' Zahl Zahl')
  else
    Halt (StrToInt(ParamStr(1))+StrToInt(ParamStr(2)));
End.

Aufruf per batch

Code:

Add 4 5
echo %ERRORLEVEL%

Geht fast in Richtung KI. Da kommt '9' heraus.