[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]