Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-pascal / 2009-08

Bugfix in the TCustomApplication class

2 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Joao Morais

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

Reply by email

Marco van de Voort
to Joao Morais

In our previous episode, Joao Morais said:

The following patch fixes a bug in the TCustomApplication class. Against fixes_2_2, sorry.

Committed to trunk (r13586). Please use the bugtracker as much as possible in the future. It makes it really easier for us to track and distribute bugs.

Reply by email