Contributor: RAY LISCHNER
{>I want the user to enter numbers and sometime I want to view numbers on>screen.>I use TEdit and must convert the data everytime.>Is there any other component to use, so I can have the data directly>to integers and real?
Just create a custom component that adds a property to do the
conversion for you, e.g.,
}
type
TIntegerEdit = class(TEdit)
private
function GetInt: LongInt;
procedure SetInt(Value: LongInt);
public
property IntValue: LongInt read GetInt write SetInt;
end;
function TIntegerEdit.GetInt: LongInt;
begin
Result := StrToInt(Text)
end;
procedure TIntegerEdit.SetInt(Value: LongInt);
begin
Text := IntToStr(Value)
end;