Immer noch offener Bug: Umgeben mit ...

[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}