Einzelnen Beitrag anzeigen

Benutzerbild von nachti1505
nachti1505

Registriert seit: 7. Apr 2007
188 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: 512 TImages - 1 OnClick Event

  Alt 21. Okt 2008, 16:16
Zitat von TUX_der_Pinguin:
Was ist mit TImage(Sender).Picture ?
In diesem Projekt durchaus möglich, ansonsten ist imo TClass(Referenz) immer ein bedingungsloses Casten ohne Typenprüfung zur Laufzeit.

Wenn im obigen Beispiel (durch irgendeinen Zufall) Sender mal kein Image ist, so würde

(Sender AS TImage).Picture einen Konvertierungsfehler melden.

TImage(Sender).Picture hingegen wirft meines Erachtens eine AV und ist somit nicht soooo schnell zu durchschauen.

Ganz sicher geht man, wenn man vorher noch auf

if (Sender IS TImage) then prüft.
  Mit Zitat antworten Zitat