typecast in neuen Delphi-Versionen

[samso]

Wenn ich bei Delphi 2007..2010 (andere Versionen nicht getestet) folgendes formuliere:

Delphi-Quellcode:

function GetReadOnly(AEdit: TEdit): Boolean;
begin
  Result := AEdit.ReadOnly;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('MyEdit1.ReadOnly            : ' + BoolToStr(MyEdit1.ReadOnly, True));
  Memo1.Lines.Add('TEdit(MyEdit1).ReadOnly     : ' + BoolToStr(TEdit(MyEdit1).ReadOnly, True));
  Memo1.Lines.Add('(MyEdit1 as TEdit).ReadOnly : ' + BoolToStr((MyEdit1 as TEdit).ReadOnly, True));
  Memo1.Lines.Add('GetReadOnly(MyEdit1)        : ' + BoolToStr(GetReadOnly(MyEdit1), True));
  Memo1.Lines.Add('');
end;

ergibt das folgende Ausgabe:

Code:

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