Methoden zu Object TEdit hinzufügen, sodaß...?

Computer: Software & Programmierung Delphi & Pascal
#1

Wie kann ich das Object TEdit erweitern,

sodaß ich statt:
Ganzzahl:=StrToInt(Eingabe.Text);
Eingabe.Text:=IntToStr(Ganzzahl);

zukünftig in den Programmen:
Ganzzahl:=Eingabe.Zahl;
Eingabe.Zahl:=Ganzzahl;

eingeben kann?

Vielen Dank

E. B.

#2

So nach dem Motto:

type
 TExtEdit = class(TEdit)
 private
 procedure SetZahl(Value: Integer);
 function GetZahl: Integer;
 public
 property Zahl: Integer; read GetZahl write SetZahl;
 end;

implementation

procedure TExtEdit.SetZahl(Value: Integer);
begin
 Text := IntToStr(Value);
end;

function TExtEdit.GetZahl: Integer;
begin
 try
 Result := StrToInt(Text);
 except
 Result := 0;
 end;
end;

Falls Du das nicht von selbst erweitern kannst, schreib einfach eine eMail an mich.