Typecast Error by Sender As TWhatever

[FrankBKK]

Hilfe, ich sitz' heut etwas auf der Leitung -

wie kann ich sowas realisieren ohne einen Typecast Error zu kriegen:

Delphi-Quellcode:

if ((Sender as TBitBtn).Name = 'bbPrint') or (Sender as TMenuItem).Name = 'miPrint')) then
begin
   ...
end ;

[mkinzler]

Der Sender muss auch von diesem Typ sein! Du könntest einen harten Cast machen, dann könnte es aber sein, dass es richtig knallt!

[FrankBKK]

Zitat:

Zitat von mkinzler

Der Sender muss auch von diesem Typ sein! Du könntest einen harten Cast machen, dann könnte es aber sein, dass es richtig knallt!

Ja, das weiss ich - deshalb wuerd ich gern wissen wie man das eleganter loesen kann ...

[mirage228]

Die könntest das "Name"-Feld auch mittels RTTI abfragen (IsPublishedProp und GetStrProp - Unit TypInfo) :)

mfG
mirage228

[mkinzler]

Delphi-Quellcode:

if Sender is <Typ> then ...

[sirius]

Name ist doch von TComponent abgeleitet.
Also:

Delphi-Quellcode:

var tmp:string;
begin
  tmp:=(Sender as TComponent).Name;
  if ((sender is TBitBtn) and (tmp='xyz1'))or
     ((sender is TBitBtn) and (tmp='xyz2'))or
     ...
  then

[mirage228]

Zitat:

Zitat von sirius

Name ist doch von TComponent abgeleitet.
Also:

Delphi-Quellcode:

var tmp:string;
begin
  tmp:=(Sender as TComponent).Name;
  if ((sender is TBitBtn) and (tmp='xyz1'))or
     ((sender is TBitBtn) and (tmp='xyz2'))or
     ...
  then

Stimmt, so gehts auch. Wenn die Methode auch von nicht-TComponent-Ableitungen aufgerufen wird, müsste man da allerdings noch eine zusätzliche Prüfung einbauen.
Ahja, wenn er sich nur für den Namen interessiert, kann man die Abfrage ob das Objekt ein TBitBtn ist auch weglassen :)

[sirius]

Zitat:

Zitat von mirage228

Wobei man, wenn er sich nur für den Namen interessiert, die Abfrage ob das Objekt ein TBitBtn ist auch weglassen kann.

Er überprüft ja auf unterschiedliche Namen (je nach Klasse) :zwinker:

[mirage228]

Zitat:

Zitat von sirius

Zitat:

Zitat von mirage228

Wobei man, wenn er sich nur für den Namen interessiert, die Abfrage ob das Objekt ein TBitBtn ist auch weglassen kann.

Er überprüft ja auf unterschiedliche Namen (je nach Klasse) :zwinker:

Ja gut, aber wenn er die Methode wirklich nur von zwei Komponenten aus abrufbar machen will kann er gleich gegen die Komponenten-Variable testen.

Delphi-Quellcode:

if (Sender = miPrint) or (Sender = btnWhatEver) then ...

[mkinzler]

Es ist aber besser den Typ und nicht den Namen der Variablen abzufragen