Sprawdzenie czy zmienna to liczba

[Bert1223]

Witam, jak mogę w prosty sposób sprawdzić czy wprowadzony zmienna jest liczbą?
Mam pole Edit, i chciałbym ograniczyć możliwość wpisywania tylko liczb w to pole?

[Cyfrowy Baron]

Ten temat był już wałkowany na tym forum dziesiątki razy i podano kilka różnych rozwiązań. W prawym górnym rogu forum masz funkcję wyszukiwania.

Rozwiązanie problemu:

Kod: Zaznacz cały

void __fastcall TForm1::Edit1KeyPress(System::TObject* Sender, char &Key)
{
     if(!strchr("0123456789", Key)) Key = 0;
}


Zdarzenie OnKeyPress dla Edit1. Ograniczono do wprowadzania tylko cyfr z zakresu 0-9.

[Corvis]

W Builderze chyba od 2009 TEdit ma właściwość NumberOnly wystarczy ustawić ją na true.

Innym sposobem jest taki myk:

Kod: Zaznacz cały

try {
    int test = Edit1->Text.ToInt();
    ShowMessage("To jest liczba");     
} catch(EConvertError &er) {
    ShowMessage("To nie jest liczba");
}


[Bert1223]

Ogólnie działa, problemem jest używanie 'backspace', który jest nie aktywny przu użyciu tego kodu:

Kod: Zaznacz cały

if(!strchr("0123456789", Key)) Key = 0;

[polymorphism]

No to trzeba trochę pomyśleć i problem z głowy.

[Cyfrowy Baron]

BACKSPACE = VK_BACK

Kod: Zaznacz cały

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(!strchr("0123456789", Key) && Key != VK_BACK) Key = 0;   
}