Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.064 Beiträge
 
Delphi XE2 Professional
 
#1

{$region '...'} {$endregion}

  Alt 25. Jul 2019, 12:24
Ich benutze oft und gern Region/EndRegion um schnell bestimmte CodeStellen zu finden.
Nun ist mir aufgefallen, dass in einigen Units ab einer bestimmten Stelle Region/EndRegion nicht mehr richtig funktioniert

Im Code steht z.B.
Delphi-Quellcode:
{$REGION 'Test'}
PROCEDURE TMain.Test;
begin
end;
{$ENDREGION}
Normalerweise steht links neben {$REGION '...'} das '-' zum Ausblenden.
Hier steht das '-' eine Zeile tiefer (Siehe Bild "Fehler 1")
Wenn ich mit Strg+Shift+K+R alle Regionen ausblende, bleibt die Zeile {$REGION 'Test'} stehen. (Siehe Bild "Fehler 2")
Wie das bei mehreren hintereinander stehenden Regionen aussieht, seht ihr in Bild "Fehler 3".

Wie es sein sollte seht ihr in den Bildern "Korrekt 1" und "Korrekt 2"

Meine erste Vermutung war, dass das daran liegt, dass in der darüber liegenden Region Assembler Funktionen liegen, die so aufgebaut sind;
Delphi-Quellcode:
FUNCTION Test:Integer;
asm
{$IFDEF CPUX86}
      32 Bit Code
{$ELSE}
      64 Bit Code
{$ENDIF}
end;
Da das Problem in einer anderen Unit, mit gleichem Aufbau nicht Auftritt, scheint das nicht die Ursache zu sein.

Hat jemand eine Vermutung (oder das Wissen) was die Ursache für diesen Fehler ist?
Miniaturansicht angehängter Grafiken
fehler-1.jpg   fehler-2.jpg   fehler-3.jpg   korrekt-1.jpg   korrekt-2.jpg  

Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat