Hello.
The following patch fixes a bug in the TCustomApplication class.
Against fixes_2_2, sorry.
Joao Morais
====================
@@ -411,7 +411,7 @@
end
else // Short Option.
begin
- HaveArg:=(I<ParamCount) and (Length(ParamStr(I+1))>0) and
(ParamStr(I+1)[i]<>FOptionChar);
+ HaveArg:=(I<ParamCount) and (Length(ParamStr(I+1))>0) and
(ParamStr(I+1)[1]<>FOptionChar);
If HaveArg then
OV:=Paramstr(I+1);
If Not CaseSensitiveOptions then
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
