Edit number control 2

[JustBeginer]

Hi !!
I'm looking for editnumber control....
If anybody know something for free download )
Thanks in advance !!!

 

[butthead]

Im just curious

what is an editnumber control

tomcruz.net

 

[JustBeginer]

Edit control that work with numbers only

 

[Ginka]

I have done this to "make" an editNumber

//---------------------------------------------------------
AnsiString __fastcall ParserEntero(AnsiString value)
{   
   AnsiString newstring = "";
   for (int i=1; i<=value.Length(); i++)
      if (value[i] >= '0' && value[i] <= '9')
         newstring += value[i];
   return newstring;
}
//---------------------------------------------------------
void __fastcall TForm1::EditNumberChange(TObject *Sender)
{
   int sel = EditNumber->SelStart;
   int Len = EditNumber->Text.Length();
   EditNumber->Text = ParserEntero(EditNumber->Text);
   if (Len == EditNumber->Text.Length())
      EditNumber->SelStart = sel;
   else
      EditNumber->SelStart = sel - 1;
}
//---------------------------------------------------------

The first function deletes any no number character.

The second one is a simple onChange event, but this way you can prevent no number characters being pasted.

 

[butthead]

I thnk you may find this more compact

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    if (!isdigit(Key))
        Key = NULL;
}

yep I remember LastCyborg

tomcruz.net

 

[Ginka]

but what about if you copy and paste any text?

 

[butthead]

http://www.codeproject.com/editctrl/ncpedit.asp

might be what you are looking for

tomcruz.net

 

[JustBeginer]

Thanks butthead !
But I wanna control for borland. I'm VC programmer and I have perfect edit control for VC I'm not very familiar with borland...

 

[Raet]

The easiest way is to write an OnKeyDown-event for the edit control like:

void __fastcall TAdminForm::EdAantalKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
//Only numeric, enter en backspace are allowed
if ((char)Key == 8 || (char)Key == 13)
return;

if ((char)Key < '0' || (char)Key > '9')
{
TMsg msg;
PeekMessage(&msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
Beep();
}
}

In this functions the keys you want to refuge are deleted from the keyboard cue.

 

[Ginka]

Raet, but what about copy-paste events?

that's why I did it using the OnChange event

 

[butthead]

something inspired by a recent thread

void __fastcall TForm1::Edit13Change(TObject *Sender)
{    
    int x = Edit13->SelStart;
    char *buff  = new char [Edit13->Text.Length () + 1];
    strcpy (buff, Edit13->Text.c_str ());

    for (int x = 0; x < Edit13->Text.Length (); x++)
    {
        if(!strchr("0123456789.", buff [x]))
        {
            //ShowMessage ("Invalid Input");
            Edit13->Text = str;
            break;
        }  
    }

    str = Edit13->Text;
    Edit13->SelStart = x;
    delete buff;
}

instead of buff you could use the ansistring stuff
to iterate through the text. I just revert to char
array by habit.

TC