[pva]

AnsiString - это притянутая за уши паскалевская строка (они начинаются с единицы). В конце есть '\0', в этом можно убедиться, посмотрев исходник AnsiString::c_str(); Таким образом, есть 2 варианта:

Код:

AnsiString str=Edit1->text;

// паскалевский или C++ вариант:

unsigned a=1, b=str.length();
for(; a<=b && isdigit(str[a]); ++a) {}
if (a<=b) throw Exception("error: invalid user with curly hands");

// вариант C:
char* base=str.c_str();
while(*base && isdigit(*base++)) {}
if (*base) throw Exception("error: invalid user with curly hands");

[aESThete]

AnsiString - это притянутая за уши паскалевская строка

Предположение - может тогда как в паскале в нулевом байте сидит длина строки?

[pva]

Нет. Размер строк AnsiString превышает 255

[Kroc]

А если контролировать в процессе набора?
Прямо по событию нажатия клавиши.

[XCodeR]

А можно просто после нажатия клавиши Enter или любой другой клавиши(впринципе, на любой Event) повесить => код
AnsiString t;
t.ToInt() - вслучае нечислового значения функция выдаст ошибку => перед нами не число...

вот такой "ламерский" спопосб... зато всего 2 строчки...

[pva]

А если контролировать в процессе набора? Прямо по событию нажатия клавиши.

Традиционный способ:

Код:

TMyEdit::perform(TMessage& msg)
{
     if (msg.message!=WM_CHAR || isdigit(msg.wParam))
     {
           TWdit::perform(msg);
     }
};