CodeFormating für Delphi 2007

[himitsu]

hab mir zwar doch nochmal diese CodeFormatierer angesehn, aber da bleib ich doch lieber bei meiner Handarbeit
hat sich in den letzten Jahren nicht viel geändert



JEDI Code Format arbeitet garnicht

Zitat:

Formatting file D:\...\FType.pas
Exception TEParseError unexpected token in factor
Near ; near line 138 col 58
Aborted due to error

dieses Semikolon muß aber da sein, denn ohne würde bestimmt der Compiler meckern

und DelForExp formatiert vorallem bei den "class operator"'s ganz schlimm

Delphi-Quellcode:

TByteRecEx = packed record
  class Operator Implicit(Value: Byte): TByteRecEx; {$I FInline.}
    class Operator Implicit(Rec: TByteRecEx): Byte; {$I FInline.}
      class Operator Implicit(Value: TByteRec): TByteRecEx; {$I FInline.}
        class Operator Implicit(Rec: TByteRecEx): TByteRec; {$I FInline.}
        public
          case Byte of
            0: (Org: Byte);
            4: (Bin: Byte);
            6: (Bits: TByteSet);
          end;
          TWordRecEx = packed record
            class Operator Implicit(Value: Word): TWordRecEx; {$I FInline.}
              class Operator Implicit(Rec: TWordRecEx): Word; {$I FInline.}
                class Operator Implicit(Value: TWordRec): TWordRecEx; {$I FInline.}
                  class Operator Implicit(Rec: TWordRecEx): TWordRec; {$I FInline.}
                  public
                    case Byte of
                      0: (Org: Word);
                      4: (Bin: Word);
                      5: (Lo, Hi: Byte);
                      6: (Bits: TWordSet);
                      7: (Bytes: TByteArray2);
                    end;
// und das geht so weiter, bis zu weit nach rechts ... aus dem Bild raus

mit der Einrückung hat der echte Probleme


meine Testdatei ist zwar schon "schön" formatiert (jedenfalls find ich es so übersicher)
und sie ist auch fehlerfrei



Aber falls wer doch 'nen CodeFormatierer kennt, welcher mit solchen Dateien kein Problem hat ...
ich wäre bereit mir zumindestens mal dessen formatieren Text anzusehn