Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#1

"Component is TButton" oder "Component.ClassName"

  Alt 10. Dez 2019, 13:22
Hallo,
ich möchte bei allen Buttons eines Forms eine Aktion durchführen, also etwa so
Delphi-Quellcode:
var
  iComponent: Integer;
  Component: TComponent;
  Button: TButton;
begin
  for iComponent:= 0 to ComponentCount-1 do
  begin
    Component:= Components[iComponent);

     if Component is TButton then
     begin
       Button:= TButton(Component);
       //jetzt was mit dem Button machen
     end;

// oder
     if Component.ClassName='TButtonthen
     begin
     end;
  end;
Gefühlt würde ich sagen, ClassName ist schneller, weil kein RTTI verwendet wird.

Was meint ihr?
Heiko
  Mit Zitat antworten Zitat