Das alte leidige Problem
Ich habe zwei Classen
TClsProgBar..TClsButtonInfo
Mein Anliegen ist zu erfahren wie viele Button sich in goProgBar befinden.
goProgBar: TClsProgBar;
Delphi-Quellcode:
procedure DisplayProgBarButtons();
var
oButton: TClsButtonInfo;
begin
for oButton in goProgBar do
Controls.DisplayButton(oButton);
end;
Das Delphi Interne "for Each" funktioniert auf dieser basis leider nicht.
Meldung die ausgegeben wird.
Zitat:
[DCC Fehler] uMain.pas(147): E2010 Inkompatible Typen: 'TClsButtonInfo' und 'TComponent'
Delphi-Quellcode:
TClsProgBar = class(TComponent)
TClsButtonInfo = class(TComponent)
Mein Code in VB sieht so aus.
Code:
Private Sub DisplayProgBarButtons()
Dim oButton As clsButtonInfo
For Each oButton In goProgBar
frmButtons.DisplayButton oButton
Next
End Sub
"For Each oButton In goProgBar" enumeriert die vorhandenen Button.
Code:
Public Property Get NewEnum() As IUnknown
'this property allows you to enumerate
'this collection with the For..Each syntax
Set NewEnum = mcolButtons.[_NewEnum]
End Property
Ich weis nun nicht wie ich das in Delphi umsetzen soll.
Hoffe mal das mir hier jemand weiterhelfen kann.
gruss