Цитата:
|
Сообщение от KSN
@ U.B.M.
Это вообще ... извините, но бред.
|
Без обид - бред писать такое и иже с ним:
Код:
((Pos(',',LabeledEdit1.Text)<>0) and (Pos(',',LabeledEdit1.Text)=1))
Если Pos=1, то автоматом Pos<>0. Это из логики простой выходит.
Минус только на первом месте и запятая в любом месте кроме первого (надо понимать кроме первого и второго, потому что первое минус, второе число, а запятая третьим символом или далее???) - это по моему (холопскому само собой) разумению рациональное число.
Можно проверять что в эдит вбито рациональное число, используя
TryStrToFloat и возможно
DecimalSeparator (чтоб разделитель был запятой если вдруг он не запятая).