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