Zitat:
AObj as TUnterklasse; //hier verwende ich Typumwandlung
Der interne Typ wird niemals umgewandelt, sondern nur die Variable ändert sich, aber drin bleibt, was drin war.
Zitat:
Delphi-Quellcode:
lObj := TOberklasse.Create;
if AObj is TUnterklasse then
lObj := AObj as TUnterklasse; //hier verwende ich Typumwandlung
Ja, der Typ von AObj wird richtig zu Unterklasse (und es ist auch wirklich Unterklasse drin)
und beim Zuweisen an lObj wird wieder Oberklasse draus, weil die Variable ändert sich ja nicht (aber dennoch bleibt Unterklasse drin)
Die Variable lObj ist und bleibt immer Oberklasse und somit kann nur auf Dinge zugegriffen werden, welche Oberklasse kennt, egal ob Unterklasse drin sein mag.
Außerdem hat dieses Stück Code ein wunderschönes Speicherleck, da niemand das erstellte Oberklasse freigibt,
und nach überschreiben mit AObj auch nicht mehr freigeben kann, weil niemand mehr den Objektzeiger kennt.
Delphi-Quellcode:
procedure TOberklasse.Test(AObj: TOberklasse);
var
lObj: TUnterklasse;
begin
ShowMessage('AObj.ClassName = ' + AObj.ClassName);
if AObj is TUnterklasse then begin
lObj := AObj as TUnterklasse; // lObj := TUnterklasse(AObj); ... ob ein harter oder weicher Cast, ist egal, da IS es bereits geprüft hat
ShowMessage('lObj.Name = ' + lObj.Name);
ShowMessage('lObj.TestMethode = ' + lObj.TestMethode);
end;
if AObj is TUnterklasse then begin
ShowMessage('AObj.Name = ' + TUnterklasse(AObj).Name);
ShowMessage('AObj.TestMethode = ' + TUnterklasse(AObj).TestMethode)
end else
ShowMessage('keine TUnterklasse');
end;
Wenn immer nur Unterklasse übergeben wird, dann ist es natürlich einfacher, wenn die Methode auch den richtigen Typ besitzt,
procedure TOberklasse.Test(AObj: TUnterklasse);
aber wenn sowohl Oberklasse, als ach Unterklasse übergeben werden kann, dann ist natürlich die gemeinsame Oberklasse das Richtige, und intern eine Prüfung.
procedure TOberklasse.Test(AObj: TOberklasse);
Delphi-Quellcode:
type
TOberklasse = class(TObject)
public
procedure Test(AObj: TOberklasse);
constructor Create;
end;
TUnterklasse = class(TOberklasse)
public
Name: String;
procedure Test(AObj: TUnterklasse); // eventuell noch ein "overload;" dran, oder notfalls ein "reintroduce;", aber hier würde der Compiler normal eh nur meckern, wenn im Vorfahren das Test "virtual" und hier nicht "override" ist
function TestMethode: String;
constructor Create;
end;
Hier wird das Test der Unterklasse nur aufgerufen, wenn die Variable TUnterklasse ist. (und hoffentlich auch ein TUnterklasse in der Variable steckt ... muß aber sowieso, es sei denn jemand hat böse gecastet und die Prüfung des Compilers umgangen)
Delphi-Quellcode:
type
TOberklasse = class(TObject)
public
procedure Test(AObj: TOberklasse); virtual;
constructor Create;
end;
TUnterklasse = class(TOberklasse)
public
Name: String;
procedure Test(AObj: TOberklasse); override;
function TestMethode: String;
constructor Create;
end;
procedure TOberklasse.Test(AObj: TOberklasse);
begin
ShowMessage('AObj.ClassName = ' + AObj.ClassName);
end;
procedure TUnterklasse.Test(AObj: TOberklasse);
begin
inherited;
if AObj = TUnterklasse then begin
ShowMessage('AObj.Name = ' + TUnterklasse(AObj).Name);
ShowMessage('AObj.TestMethode = ' + TUnterklasse(AObj).TestMethode);
end;
end;
Hier wird immer das Test der Unterklasse aufgerufen, sobald in der Variable ein Unterklasse drin ist, egal, ob die Variable Ober- oder Unterklasse ist.
xxx.Test(yyy);
Also die Message wird nur angezeigt, wenn sowohl XXX, als auch YYY, ein TUnterklasse ist.
Bzw. ohne Overload, kann bei XXX als TUnterklasse auch nur ein TUnterklasse als Parameter XXX übergeben werden (oder ein Nachfahre von TUnterklasse, aber nie TOberklasse).
Delphi-Quellcode:
type
TOberklasse = class(TObject)
public
procedure Test; virtual;
constructor Create;
end;
TUnterklasse = class(TOberklasse)
public
Name: String;
procedure Test; override;
function TestMethode: String;
constructor Create;
end;
procedure TOberklasse.Test;
begin
ShowMessage('ClassName = ' + ClassName);
end;
procedure TUnterklasse.Test;
begin
inherited;
ShowMessage('Name = ' + Name);
ShowMessage('TestMetode = ' + TestMetode);
end;