Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#4

AW: For each in Delphi

  Alt 25. Aug 2012, 04:23
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;
  Mit Zitat antworten Zitat