TEdit speichern und lesen

[Popov]

Zitat von himitsu:

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.