Compilerschalter der Autoformat verhindert

[norwegen60]

Hallo zusammen,

gibt es eine Möglichkeit einzelne Blöcke gegen Autoformat [CTRL-D] zu schützen

Ich habe hier eine Sortierung einer Objectlist die sähe lesbar so aus

Delphi-Quellcode:

begin
  Sort(TComparer<TStandardName>.Construct(
  function(const Value1, Value2: TStandardName): Integer
  begin
    if (Value1.Nr = 0) then                  // Verhindern, dass Datensatz 0 sortiert wird
      Result := -1
    else if (Value2.Nr = 0) then             // Verhindern, dass Datensatz 0 sortiert wird
      Result := 1
    else if (Value1.Name = Value2.Name) then // Bei gleichen Namen nach Nr sortieren
      Result := Value1.Nr - Value2.Nr
    else if (Value1.Name > Value2.Name) then
      Result := 1
    else
      Result := -1;
  end));
end;

und nach [CTRL-D ] so

Delphi-Quellcode:

begin
  Sort(TComparer<TStandardName>.Construct( function(const Value1, Value2: TStandardName): Integer begin if (Value1.Nr = 0) then
    // Verhindern, dass Datensatz 0 sortiert wird
    Result := -1 else if (Value2.Nr = 0) then            // Verhindern, dass Datensatz 0 sortiert wird
    Result := 1 else if (Value1.Name = Value2.Name) then // Bei gleichen Namen nach Nr sortieren
    Result := Value1.Nr - Value2.Nr else if (Value1.Name > Value2.Name) then Result := 1 else Result := -1; end));
end;

Grüße und Danke
Gerd

[Andreas13]

Bei XE5:
Tools --> Optionen --> Formatierung --> Profile und Status:
dort Kästchen „Formatierung aktivieren“ wegklicken (= deaktivieren)

Gruß, Andreas
PS:
Du kannst darüber hinaus noch Folgendes einstellen, um vorzeitige Zeilenumbrüche zu vermeiden:
Tools --> Optionen --> Anzeige:
Option „Rechter Rand“ auf einen hohen Wert (z.B. 200) setzen.

[TiGü]

Da hat jemand aber die Einstellung vom Autoformatter kaputtgespielt.
Denn keine der drei Default-Formater_*.config-Dateien in C:\Users\Dein_User_Name\AppData\Roaming\Embarcader o\BDS\Deine_IDE_Nummer formatiert das so um.

Vielleicht die Einstellung zurücksetzen an der ersten von Andreas benannten Stelle (Restore defaults).

[Uwe Raabe]

Zitat von norwegen60:

gibt es eine Möglichkeit einzelne Blöcke gegen Autoformat [CTRL-D] zu schützen

Hinter jede Zeile ein // setzen. Mit der Option Zeilenendekommentare ausrichten sieht das dann so aus:

[bernau]

Zitat von Uwe Raabe:

Hinter jede Zeile ein // setzen.

Ahh. Cool. Muss ich mir merken.

Schön wäre es, wenn man den Formatter so einstellen könnte, dass nur die Function/Procedure, in der sicher Cursor grade befindet, formatiert wird.

[himitsu]

Du kannst die Funktion markieren/selektieren, dann wird nur das Markierte formatiert.

[bernau]

Zitat von himitsu:

Du kannst die Funktion markieren/selektieren, dann wird nur das Markierte formatiert.

Manchmal ist das einfache so nah.

Gibt es eine Tastenkombi, mit der man eine ganze Procedure markiert, in der sich der Cursor grade befindet?

[TigerLilly]

Bin nicht sicher, ob das nur für GExperts/cnbPack gilt + kanns grad nicht überprüfen:

Code:

Everything between {(*} and {*)} does not get formatted.

[Uwe Raabe]

Zitat von bernau:

Gibt es eine Tastenkombi, mit der man eine ganze Procedure markiert, in der sich der Cursor grade befindet?

Oft genug Ctrl-W drücken.

[stahli]

Mein Optimizer würde aktuell das draus machen:

Delphi-Quellcode:

begin
  Sort(TComparer<TStandardName>.Construct(
                                  function(const Value1, Value2: TStandardName): Integer
                                  begin
                                    if (Value1.Nr = 0) then // Verhindern, dass Datensatz 0 sortiert wird
                                    Result := -1
                                    else if (Value2.Nr = 0) then // Verhindern, dass Datensatz 0 sortiert wird
                                    Result := 1
                                    else if (Value1.Name = Value2.Name) then // Bei gleichen Namen nach Nr sortieren
                                    Result := Value1.Nr - Value2.Nr
                                    else if (Value1.Name > Value2.Name) then
                                      Result := 1
                                    else
                                      Result := -1;
                                  end));
end;

Auch noch nicht ganz passend, aber an ein paar Stellen könnte man noch drehen.
Aber es wäre dann halt ein kompletter Ersatz des Formatierers und derzeit nur für die aktuellste Delphi-Version möglich.