Immer noch offener Bug: Umgeben mit ...

[Sir Rufo]

Dann stell die Formatierungsoptionen nach deinen Vorlieben ein und drück dann Strg+D

[Harry Stahl]

Zitat von Sir Rufo:

Dann stell die Formatierungsoptionen nach deinen Vorlieben ein und drück dann Strg+D

Für die älteren Delphi-Versionen wäre das vielleicht eine Lösung...

Aber auch so wäre es nur immer zusätzlicher Aufwand, der eigentlich unnötig ist, wenn der Fehler endlich mal behoben würde.

Edit: Glaube, das geht mit den Einstellmöglichkeiten nicht so, wie gewünscht. Dass man z.B. den Einzug der Regionbezeichnung ganz an den Anfang verhindern kann, habe ich nicht gefunden.

[haentschman]

Guten Morgen...

Wie wäre es mit CnPack? ... auch über Kontextmenü verfügbar

Original:

Delphi-Quellcode:

  StartCount:= 0;
  while (not Terminated) and (not (FCurrentRunningState = sdsError)) do
  begin
    CurrentCount:= GetTickCount;
    if (CurrentCount - StartCount) > conPollingInterval then
    begin
      GetAlarms;
      StartCount:= GetTickCount;
    end;
    Sleep(100); // für Leerlauf
  end;

Delphi umgeben:

Delphi-Quellcode:

  {$REGION 'MyRegion'}
    StartCount:= 0;
      while (not Terminated) and (not (FCurrentRunningState = sdsError)) do
      begin
        CurrentCount:= GetTickCount;
        if (CurrentCount - StartCount) > conPollingInterval then
        begin
          GetAlarms;
          StartCount:= GetTickCount;
        end;
        Sleep(100); // für Leerlauf
      end;
  {$ENDREGION}

CnPack umgeben:

Delphi-Quellcode:

{$REGION ''}  
  StartCount:= 0;
  while (not Terminated) and (not (FCurrentRunningState = sdsError)) do
  begin
    CurrentCount:= GetTickCount;
    if (CurrentCount - StartCount) > conPollingInterval then
    begin
      GetAlarms;
      StartCount:= GetTickCount;
    end;
    Sleep(100); // für Leerlauf
  end;
{$ENDREGION}