Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

Является ли строка числом   Найти похожие ветки 

 
SZap   (2003-03-26 12:57) [0]

Как можно проверить, является ли строка числом?


 
MBo ©   (2003-03-26 13:04) [1]

Val или в try-блокеStrtoInt, или StrtoIntDef


 
Skyle ©   (2003-03-26 14:08) [2]

function IsNumber(S : String):Boolean;
var I : Integer;
begin
Result := true;
for I := 1 to Length(S) do
Result := Result AND (((S[I]>="0") AND (S[I] <="9")) OR (S[I] = DecimalSeparator));
end;
При желании сюда можно включить проверку на наличие ЕДИНСТВЕННОГО DecimalSeparator"а, а также на представление чисел в виде "12 556.46". Если не хочется маяться реализацией, то предыдущий ответ.


 
Palladin ©   (2003-03-26 14:26) [3]


> Skyle © (26.03.03 14:08)

велосипед изобретаем?


function IsNumber(S:String):Boolean;
var
Value,Code:integer;
begin
val(S,Value,Code);
result:=Code=0;
end;

function IsNumber(S:String):Boolean;
begin
try
StrToInt(S);
result:=true;
except
result:=false;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-19573
Pavel_
2003-03-27 10:07
2003.04.07
удаленная загрузка пакетов или длл


1-19519
Александр Ч.
2003-03-26 14:44
2003.04.07
TreeView -замучал уже


14-19756
dimich1978
2003-03-22 15:53
2003.04.07
Соединение двух зданий на скорости не более 10Мбит на HPNA.


6-19716
xrip
2003-02-13 22:17
2003.04.07
Надо написать прокси на один порт и хост.


6-19720
Chlavik
2003-02-08 01:21
2003.04.07
RAs