For each in Delphi

[Sir Rufo]

Delphi-Quellcode:

procedure DisplayProgBarButtons();
var
  oButton: TComponent;
begin

  for oButton in goProgBar do
    if oButton is TClsButtonInfo then
      Controls.DisplayButton( TClsButtonInfo( oButton ) );

end;

Der Standard Enumerator liefert hier alle Components zurück, darum muss die Index-Variable auch vom Typ TComponent sein.

Ansonsten einen eigenen Enumerator schreiben (der sieht aber fast genauso aus) und lohnt nur, wenn du den öfter benötigst.