|
@@ -63,6 +63,13 @@ var
|
|
NonOptions: TStringArray;
|
|
NonOptions: TStringArray;
|
|
BasicProgram: AnsiString;
|
|
BasicProgram: AnsiString;
|
|
begin
|
|
begin
|
|
|
|
+ if ParamCount = 0 then
|
|
|
|
+ begin
|
|
|
|
+ WriteHelp;
|
|
|
|
+ Terminate;
|
|
|
|
+ Exit;
|
|
|
|
+ end;
|
|
|
|
+
|
|
// quick check parameters
|
|
// quick check parameters
|
|
ErrorMsg:=CheckOptions(ShortOptions, LongOptions);
|
|
ErrorMsg:=CheckOptions(ShortOptions, LongOptions);
|
|
if ErrorMsg<>'' then begin
|
|
if ErrorMsg<>'' then begin
|