typecast in neuen Delphi-Versionen

[stoxx]

Zitat von BadenPower:

Zitat von uligerhardt:

In XE6 funktioniert's, wie es sollte - also anders, als du es gerne hättest.

Das ist so nicht richtig ausgedrückt.

Denn unter XE6 funktioniert es anderst, denn ich hatte bisher angenommen, dass es bislang so funktioniert wie es sollte.
Dann bleib' ich doch bei Delphi2007, denn da funktioniert es so wie ich es brauche und seit je her gewohnt bin.

Also wenn ich auf "Deklaration suchen" gehe von:

(MyEdit1 as TEdit).ReadOnly Dann verweist Delphi XE8 korrekt auf Vcl.StdCtrls

Unter Delphi 2007 geht die Deklaration (fehlerhaft) auf TMyEdit.ReadOnly

Also ist es ein Bug von Delphi 2007, der irgendwann behoben wurde.
Schreib Deinen Code doch lieber um, so dass er logisch korrekt auch unter XE funktioniert.

.

[BadenPower]

Zitat von stoxx:

Schreib Deinen Code doch lieber um, so dass er logisch korrekt auch unter XE funktioniert.

Umschreiben ist immer mit Aufwand verbunden.

Klar könnte ich zum Beispiel GetPropValue einsetzen, was mir dann auch die richtigen Werte ausgeben würde.

Allerdings müsste ich dann für die abzufragenden Properties feste Strings verwenden, worauf ich eigentlich verzichten wollte.

1. können Tippfehler entstehen
2. merkt man erst zur Laufzeit dass eine Property für dieses Objekt nicht exisiert.

[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

[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.