Anonyme Methode in Schleife ausführen - wie abbrechen?

[hschmid67]

Hallo zusammen,

ich hab ein Konstrukt, mit dem ich ein Objekt kapsele, um daraus ein Interface zu machen. Das Interface stellt dann eine Art ForEach-Methode für Daten des Objekts zur Verfügung, etwa so:

Delphi-Quellcode:

encapsulate(lObject).ForEach(procedure(mStr: string)
  begin
  // do something
  end);

Das funktioniert soweit sehr gut, aber ich würde nun gerne das ForEach durch irgendeine Bedingung in der anonymen Methode abbrechen. Habt Ihr hier eine Idee, wie das gehen könnte?

Das encapsulate.ForEach ist in etwa so implementiert (Beispielobjekt TStringList)

Delphi-Quellcode:

procedure encapsulate.ForEach(proc: TProc<string>);
begin
  for lStr in lObject.List do
  begin
    Proc(lStr);
    // hier könnte man eine Bedingung prüfen und ggf. das ganze ForEach abbrechen
    // also z.B. brich nach dem x-ten Element ab, oder brich ab, wenn Du in lStr "xxx" gefunden hast
    // hier hart codiert ist kein Problem, aber...
  end;
end;

Aber wie bekomme ich die Bedingung in die anonyme Methode? Man müsste in der anonymen Methode ein Flag setzen können, das dann in encapsulate.ForEach überprüft wird... Aber wie kann ich in der anonyment Methode auf ein Flag im Interface (oder dem dahinter liegenden Object) zugreifen?

Viele Grüße
Harald