Nein, in der Variable ist natürlich eine TStringList-Instanz, mit allen ihren Funktionen
Trotzdem, auch wenn es hier nicht der Grund ist, man sollte so was, zumindest wenn es nicht nötig ist, vermeiden.
Eine Frage, was kommt hier als Ergebnis raus?
Delphi-Quellcode:
type
TTestBasis = class
FWert: Integer;
function GetWert: Integer;
public
property Wert: Integer read GetWert write FWert;
end;
TTest = class(TTestBasis)
function GetWert: Integer;
public
property Wert: Integer read GetWert write FWert;
end;
function TTestBasis.GetWert: Integer;
begin
Result := FWert * 2;
end;
function TTest.GetWert: Integer;
begin
Result := FWert div 2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Test: TTestBasis;
begin
Test := TTest.Create;
try
Test.Wert := 6;
ShowMessage('Ergebnis: ' + IntToStr(Test.Wert));
finally
Test.Free;
end;
end;
PS: ich weiß, dass das virtual und override fehlen, trotzdem.