TEdit Text "überschreiben"

[Sharky]

Hai LoL,

was genau möchtest Du denn machen?

Wenn Du immer den selben String beim lesen von .Text haben möchtest brauchst Du überhaupt keinen Setter zu schreiben.
Dann reicht auch das

Delphi-Quellcode:

type 
  TTemperatureEdit = class(TEdit) 
  private 
    { Private declarations }
    function ReadText : String;
  protected 
    { Protected declarations } 
  public 
    { Public declarations } 
  published 
    { Published declarations }
    property Text : String Read ReadText;
  end;

implementation


function TTemperatureEdit.ReadText : String;
begin
  Result := 'mein text';
end;

Aber das dir das bringen soll kann ich nicht erkennen