Проблема с TRegExpr

[Григоренко Степан]

Здравствуйте.
Попытался написать код, который бы проверял, является ли строка рациональным числом.
Число должно быть длиной не более 7 символов, первый может быть минус.

То, что у меня получилось:

Reg:= TRegExpr.Create;
Reg.Expression := '^[-]?(\d){1,7}[.]?(\d){0,7}$';

read:= Edit6.Text;

if Reg.Exec(read)
    then ShowMessage('OK')
    else ShowMessage('No');
Reg.Free;

как сделать, чтобы корректно читалось с плавающей точкой?
Поиск по форуму вопрос не прояснил.
Заранее спасибо.

[ViktorXP]

а при чем тут компонент TRegExpr? если ты регулярку правильно сложить не можешь.

^(\d+)$

тут указаны все цифры между началом и концом. при этом ты зачем то взял цифру в группу.

^[-]?(\d){1,7}[.]?(\d){0,7}$

тут указано что:
а) от начала не обязательный набор символов из одного знака. (зачем минус в квадратные скобки взято тоже не понятно).
б) от одной до семи групп из одной цифры (зачем цифра взята в группу?).
в) не обязательный набор символов из одного любого символа (вообще тут какой то коллапс. который даже откомментировать страшно)
г) от нуля до семи групп по одной цифре
д) и должен быть обязательно конец строки

пс. достаточно написать:

^\-?\d+(\.\d+)?$

если ты пользуешься XE+ (хотя кажись и в 2010 есть) то там есть стандартный компонент TRegEx. который может намного больше за TRegExpr и там можно написать

^\-?\d+(?:\.\d+)?$

[Григоренко Степан]

А, нет, спасибо, я решил:

Reg.Expression := '^\-?[\d]{1,7}\.?[\d]{0,7}$';

if (Reg.Exec(read)) and (Length(read)<=7)
    then ... 
    else...

[ViktorXP]

регулярка логически не правильна. так как она пропустит строку "99." (без кавычек соответственно).

[ViktorXP]

пс. и правильнее сначала проверить длину строки, а уже потом на соответствие. так как проверка работает быстрее нежели регулярка.