Exception bei Typecast

[murcielago]

Hallo Leute,

hab folgende Klassenstruktur:

Delphi-Quellcode:

IDIFControl = interface(IInterface)
// ein paar methoden
end;

TOwnTextField = class(TTntEdit, IDIFControl)
// implementierung der methoden
end;

var
  ctrl: IDIFControl;

wenn ich jetzt mit

Delphi-Quellcode:

ctrl := TOwnTextField.Create(myPanel); // myPanel kommt von wo anders... und ist nicht nil!
TControl(ctrl).Width := 5; // hier krachts!

drauf zugreife, dann kommt eine EAccessViolation. (ja, ich hab sie vorher initialisiert!)

ich muss dazusagen, dass es das erste mal ist dass ich mit delphi mit interfaces/vererbung arbeite.

lg, Lukas

[Jens Schumann]

Hallo,
ist crtl eine Instanz der Klasse TOwnTextField, oder reräsentiert crtl das Interface IDIFControl?

[murcielago]

hallo,

ctrl := TOwnTextField.Create(myLabel); ruf ich auf.

ist also von TTntEdit abgeleitet und implementiert IDIFControl.

[Jens Schumann]

Hallo,

Zitat von murcielago:

hallo,

ctrl := TOwnTextField.Create(myLabel); ruf ich auf.

ist also von TTntEdit abgeleitet und implementiert IDIFControl.

das stimmt. Aber was ist damit

Delphi-Quellcode:

var 
  ctrl: IDIFControl;

[murcielago]

ja, das mach ich deswegen damit ctrl alles sein kann was IDIFControl implementiert...
ich hab da ja noch TOwnCheckBox usw...

[Jens Schumann]

Hallo,
crtl ist das Interface und nicht die Klasse. crtl stammt nicht von TControl ab!!!
Somit muss ein Typecast auch in die Hose gehen.

[murcielago]

ok, dann muss ich mir was anderes einfallen lassen. danke

[Christian Seehase]

Moin Lukas,

ein Typecast dieser Form:

TControl(ctrl).Width ... ist immer gefährlich.

Hättest Du es so

(ctrl as TControl).Width ... gemacht, hätte wohl schon der Compiler gemeckert.

Im ersten Fall übernimmst Du die Verantwortung dafür, dass der Typecast korrekt ist (der Pointer also auf ein passendes Objekt zeigt), im zweiten kann der Compiler schon beim Compilieren feststellen, ob die Typen passen.

[murcielago]

ok, danke. habs inzwischen anders gelöst.