Mehrere TImages in if-Vergleich kürzen

[DieDolly]

Kann man sowas hier irgendwie kürzer schreiben? Ich habe es schon mit einer Menge als Set versucht aber das klappt nicht.

Delphi-Quellcode:

 if (TImage(Sender) = Rating1) or (TImage(Sender) = Rating2) or (TImage(Sender) = Rating3) or (TImage(Sender) = Rating4) or (TImage(Sender) = Rating5) then
  begin

[BerndS]

Wenn du allen Ratings einen Tag gibst, könntest du diesen prüfen.

[Uwe Raabe]

Ist nicht viel, aber man kann den Cast auf TImage weglassen:

Delphi-Quellcode:

 if (Sender = Rating1) or (Sender = Rating2) or (Sender = Rating3) or (Sender = Rating4) or (Sender = Rating5) then
  begin

Mit etwas Aufwand wäre das hier eine Möglichkeit mit einer einmalig erzeugten Liste:

Delphi-Quellcode:

  Ratings := TList<TObject>.Create;
  Ratings.AddRange([Rating1, Rating2, Rating3, Rating4, Rating5]);

und folgenden Abfragen:

Delphi-Quellcode:

  if Ratings.Contains(Sender) then
  begin

[DieDolly]

Klappt wunderbar danke!

[completestranger]

Wenn es immer die gleiche Klasse ist und du auf den Namen verzichten kannst, dann würde es auch mit
if (Sender is TImage) then funktionieren.