Anonyme Methode in Schleife ausführen - wie abbrechen?

[Uwe Raabe]

Zitat von hschmid67:

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

Wäre das nicht eher etwas für einen Enumerator?

Delphi-Quellcode:

type
  TMyObject = class
  private type
    TEnumerator = record
    private
      FIndex: Integer;
      FOwner: TMyObject;
      function GetCurrent: string;
    public
      constructor Create(AOwner: TMyObject);
      function MoveNext: Boolean;
      property Current: string read GetCurrent;
    end;
  private
    FList: TStringList;
  public
    constructor Create;
    destructor Destroy; override;
    function GetEnumerator: TEnumerator;
  end;

function TMyObject.GetEnumerator: TEnumerator;
begin
  Result := TEnumerator.Create(Self);
end;

constructor TMyObject.TEnumerator.Create(AOwner: TMyObject);
begin
  FIndex := -1;
  FOwner := AOwner;
end;

function TMyObject.TEnumerator.GetCurrent: string;
begin
  Result := FOwner.FList[FIndex];
end;

function TMyObject.TEnumerator.MoveNext: Boolean;
begin
  Inc(FIndex);
  Result := FIndex < FOwner.FList.Count;
end;

Dann kannst du die übliche for-in Syntax verwenden und die Abbruchbedingung direkt einprogrammieren:

Delphi-Quellcode:

var
  myObject: TMyObject;
begin
  myObject := TMyObject.Create;
  try
    for var S in myObject do begin
      if S = 'Stop' then
        Break;
      ShowMessage(S);
    end;
  finally
    myObject.Free;
  end;
end;

[himitsu]

Zitat:

nur dass man den entsprechend bezeichnen kann.

Und es nichts macht, wenn man ihm nichts zuweist. (weil ja vor dem Funktionsaufruf initialisiert)
(wobei zwar Delphi inzwischen Integer/Boolean-Results mit 0 zu initialisieren scheint, also das EAX)

OK, bei OUT statt VAR, würde es per se wie beim Result reagieren und man sollte besser in der Prozudur da etwas zuweisen.

Zitat:

Dann kannst du die übliche for-in Syntax verwenden und die Abbruchbedingung direkt einprogrammieren:

Nur das Break da "direkt" nicht geht, weil ja in einer Prozedur.

Abort oder Raise ginge, bzw. das mit dem Result/Var und dann nach der Prozedur in der Schleife das Break, bzw. die Abbruch-Variable in die Schleifenbedingung.



PS: Beim Result hat man den Spaß, dass ... ja was Bedeutet es nun?
True (Boolean) oder z.B. 1 (Integer) ... ist das nun Weitermachen oder Abbrechen

[freimatz]

Zitat von himitsu:

PS: Beim Result hat man den Spaß, dass ... ja was Bedeutet es nun?
True (Boolean) oder z.B. 1 (Integer) ... ist das nun Weitermachen oder Abbrechen

Da mache ich dann gerne statt dem Boolean einen Auzählungstyp. Ist zwar Arbeit, aber dann ist es klar und vermeidet Fehler.