For each in Delphi

[sx2008]

Zitat von EWeiss:

lediglich der blaue Pfeil angezeigt aber ein sprung in meine Procedure findet nicht statt.
Setze ich keinen Breakpoint wird das teil übersprungen.

Dann ist halt kein Button der Klasse TClsButtonInfo in der Komponentenliste.

Delphi-Quellcode:

procedure DisplayProgBarButtons();
var
  oButton: TComponent;
  info : string;
begin
  for oButton in goProgBar do
  begin
    info := oButton.Name + ':' + oButton.Classname;  

    // auf folgender Zeile einen breakpoint setzen und beobachten was in der Variablen "info" steht
    if oButton is TClsButtonInfo then
      Controls.DisplayButton( TClsButtonInfo( oButton ) );
  end;
end;