Как определить число в строке или нет ?

← →
Дмитрий Д. © (2002-04-26 14:09) [0]

Уважаемые !
Интересует возможность БЫСТРОГО определения: в строке число или нет ?
я знаю варианты:перебор посимвольно(медлено) и с помощью исключения (пока не устраивает, если ничего не найду придется делать так)
может ктото знает другие варианты ?
Заранее спасибо!

← →
Дмитрий Д. © (2002-04-26 14:12) [1]

Забавно:)
никогда еще со смной не было чтобы у когото еще был практически одинаковый вопрос как у меня (у Juli)

← →
Виктор Щербаков © (2002-04-26 14:13) [2]

> перебор посимвольно(медлено)

Это почему же медленно?

← →
Song © (2002-04-26 14:15) [3]

А Pos не подходи?

← →
MBo © (2002-04-26 14:15) [4]

val
strtointdef

← →
Dimok (2002-04-26 14:18) [5]

procedure Val(S; var V; var Code: Integer);
эта процедура переводит строку S в V (real или integer), если в строке S содержалось не число, то в Code возвращается номер первого нецифрового символа, если все нормально, то Code=0.

← →
Дмитрий Д. © (2002-04-26 14:50) [6]

Всем спасибо огромное!!!
особое спасибо MBo, Dimok
совсем блин про Val забыл :)
Еще раз всем спасибо!

← →
Дмитрий Д. © (2002-04-26 15:22) [7]

Только вот в чем загвоздка... :)
если число более 999999999
то все... приехали...

← →
MBo © (2002-04-26 15:33) [8]

i64:=StrToInt64Def(s,-1);
if i64=-1 then...

2 MBo
а если в строке до дого была -1?

правильней будет так
//если число дробное, нужно будет еще подправить
//Length(Trim("-1.0000000000002301")) > 2

function IsInt64(i64:string; var r:longint):boolean;
var j:integer;
begin
if Length(Trim(i64)) > 2
then begin
r:= StrToInt64Def(i64,-1)
if r=-1 then result:= false;
end
else begin
Val(i64,r,j);
result:= j =0;
end;
end;

if IsInt64("23545",r)
then ....
//в r - уже число 23545 ;)
else ....
//значит это было не число :(

это шутка такая!!!
;)

Как определить число в строке или нет ? Найти похожие ветки