Exception innerhalb von Schleifen

**Dezipaitor**

Ich habe die folgende Empfehlung gefunden:

http://www.delphi-treff.de/backstage...e/katalog/256/

Delphi-Quellcode:

			procedure TMyClass.DoSomething;

var i: Integer;

begin

  for i := 0 to High(FMyField) do

  begin

    try

      FMyField[i].DoIt;

    except

      ShowMessage('Invalid: ' +

                   IntToStr(i));

    end;

  end;

end;

Damit die For-Schleife ohne eine interne Exception-Behandlung auskommt, die die Schleife verlangsamt,
wird dieses empfohlen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMyClass.DoSomethingIntern(

  StartIndex: Integer);

var  ExceptionRaised: Boolean;

begin

  ExceptionRaised := False;

  try

    for i := StartIndex to High(FMyField) do

    begin

      StartIndex := i;

      FMyField[i].DoIt;

    end;

  except

    ExceptionRaised := True;

    ShowMessage('Invalid: ' +

      IntToStr(i));

  end;

  if ExceptionRaised then

    DoSomethingIntern(StartIndex + 1);

end;

procedure TMyClass.DoSomething;

begin

  DoSomethingIntern(0);

end;

Meiner Meinung jedoch, kommt hier ein anderes Problem hinzu.
Die Prozedur wird rekursiv aufgerufen. Bei einer großen Menge von Fehlern, kann es leicht zu einem Stackoverflow kommen. Der Stack wird zu klein.

Wäre das eine Lösung?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMyClass.DoSomething;

var  i : Integer;

label RestartLoop;

begin

  i := 0;

RestartLoop:

  try

    while i <= High(FMyField) do

    begin

      StartIndex := i;

      FMyField[i].DoIt;

      Inc(i);

    end;

  except

    ExceptionRaised := True;

    ShowMessage('Invalid: ' +

      IntToStr(i));

    Inc(i);

  end;

  if i <= High(FMyField) then

    goto RestartLoop;

end;

Exception innerhalb von Schleifen

Exception innerhalb von Schleifen

Forumregeln