[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

{
>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;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]