Wert für alle Objekte gleichen Typs ändern?

[Bitworm]

Hi !

Ich würde in einer Schleife alle Componenten durchlaufen und feststellen
ob sie vom gewünschten Typ sind:

Code:

for i := 0 to Self.ComponentCount-1 do 
begin
  if Self.Components[i] is TSpinEdit then 
  begin
    with Self.Components[i] as TSpinEdit do 
    begin
      Value := 0;
    end;
  end;
end;

Anmerkung an alle Erbsenzähler : Code nicht getestet und soll nur ein Lösungsansatz sein