Bitte beachten: Bei einem zur EXE gelinkten XProfan-11-Programm verschiebt sich der Parameter-Index um -1 !
' Kommandozeilenparameter auslesen (PRFellow - Vorlage)
' Autor 2007 Thomas Hölzer, 2018 To XProfan11.2a p.specht
' Prozedur dient zu Testzwecken im Entwicklungsprozeß,
' um Anzahl, Numerierung und Inhalt der beim Programmstart
' übergebenen Parameter zu prüfen.
' Bitte beachten: Bei einem zur EXE gelinkten Programm
' verschieben sich in XProfan der Parameter-Index um -1 !"
Proc CheckParams
Declare i%,paramstr$
Whileloop 0,%ParCount-1
paramstr$=paramstr$+"Par$("+Str$(i%)+") = "+Par$(i%)+"\n"
EndWhile
MessageBox(paramstr$,"Parametertest", 64)
EndProc
Main:
Cls
CheckParams
End