Sinnvoller Einsatz von goto

[Neutral General]

Nunja ein try-finally wäre wohl die richtige Wahl in dieser Situation

Delphi-Quellcode:

function DemoThread(p: Pointer): Integer; 
var 
  i: Integer; 
  ParentHandle: THandle; 
begin 
  try
    ParentHandle := PThreadParams(p)^.ParentHandle; 
    for i := 0 to 9 do 
    begin 
      if Abort then 
      begin 
        SendMessage(ParentHandle, CM_ABORT, 0 , 0); 
        exit;
      end; 
      SendMessage(ParentHandle, CM_STATUS, Integer(PChar('Durchlauf:')), i); 
      Sleep(500); 
    end; 
    SendMessage(ParentHandle, CM_FINISHED, 0, 0); 
  finally
    Dispose(p); 
    Result := 0; 
  end;
end;