'Default Sort All Classes' issue.

[Ian Branch 140]

Hi Uwe,

D11.3, latest MMX.

If I have this code in my type declaration:

{code}

....

    procedure FormShow(Sender: TObject);
    procedure IndexOrdChange(Sender: TObject);
  private
    const iWidth = 920;
  end;

implementation

''''

{code}

 

The function changes it to this:

{code}

....

    procedure FormShow(Sender: TObject);
    procedure IndexOrdChange(Sender: TObject);
  private

  const                                       <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

    const iWidth = 920;
  end;

implementation

''''

{code}

Which of course causes an error.

 

If I have this:

{code}

....

    procedure FormShow(Sender: TObject);

{$IFDEF MyTest}
    procedure IndexOrdChange(Sender: TObject);

{$ENDIF}
  private
    const iWidth = 920;
  end;

implementation

''''

{code}

It removes the $IFDEF/$ENDIF block totally.

 

Regards,

Ian

Edited August 29, 2023 by Ian Branch

[Uwe Raabe 2147]

Thanks for reporting. I know that MMX has problems with those one-line declarations and conditional defines. I have added these two to the bug tracker.