"Component is TButton" oder "Component.ClassName"

[hoika]

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='TButton' then
     begin
     end;
  end;

Gefühlt würde ich sagen, ClassName ist schneller, weil kein RTTI verwendet wird.

Was meint ihr?

[Klaus01]

Hallo,

solltest Du nicht besser classType verwenden anstelle von className?
Diskussion hier.

Grüße
Klaus

[hoika]

Hallo,
ClassType hört sich für mich auch wieder nach RTTI an.

[freimatz]

Hallo,
ich bin recht eindeutig für "Component is TButton".
Wenn Geschwindigkeit eine Rolle spielt dann hast Du ein falsches Design. In der UI spielt Geschwindigkeit eh meist keine Rolle.

[hoika]

Hallo,

Zitat:

Wenn Geschwindigkeit eine Rolle spielt

Einspruch, natürlich sollte die Performance immer eine Rolle spielen,
sonst hätten wir heute noch 286-er mit 16 MHz (ja der mit dem Turbo ! )

[hoika]

Hallo Uwe,
das sieht auf jeden Fall schneller als mein String-Vergleich aus

Danke.

[freimatz]

Zitat von hoika:

Hallo,

Zitat:

Wenn Geschwindigkeit eine Rolle spielt

Einspruch, natürlich sollte die Performance immer eine Rolle spielen,
sonst hätten wir heute noch 286-er mit 16 MHz (ja der mit dem Turbo ! )

Einspruch abgelehnt. Natürlich sollte die Performance NICHT immer eine Rolle spielen, sondern nur in Ausnahmefällen.
https://clean-code-developer.de/die-..._Optimierungen

[Uwe Raabe]

Zitat von hoika:

ClassType hört sich für mich auch wieder nach RTTI an.

Nicht wirklich:

Delphi-Quellcode:

function TObject.ClassType: TClass;
begin
  Pointer(Result) := PPointer(Self)^;
end;

[Dennis07]

1. ist Component:= Components[iComponent); syntaktisch falsch.
2. hilft dir Component.ClassName = TButton.ClassName nicht weiter, weil es Groß/Kleinschreibung nicht Ignoriert. Stattdessen solltest du ClassNameIs() verwenden.
3. ist der Vergleich von Strings immer eine der Aufwändigsten Operationen und sollte deshalb vermieden werden.
4. ist ClassName für so etwas nicht gedacht. Dafür hat man ClassType.
5. verwendet _isClass() überhaupt nicht die RTTI.