Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c