typecast in neuen Delphi-Versionen

[uligerhardt]

Zitat von samso:

Code:

MyEdit1.ReadOnly             : True
TEdit(MyEdit1).ReadOnly      : False
(MyEdit1 as TEdit).ReadOnly  : True
GetReadOnly(MyEdit1)         : False

Ist doch klar:

• Bei 1 ist die Variable vom statischen Typ TMyEdit, also kommt True. Passt.
• Bei 2 und 4 ist der statische Typ TEdit, aber der dynamische TMyEdit. Wichtig ist aber der statische Typ, also False. Passt auch.
• 3 sollte wie 2 laufen, wegen des Bugs kommt aber True.