Определить число ли В EXCEL???

← →
Poirot © (2002-09-13 18:57) [0]

Сабжик!!! Это надо сделать в ДЛЛ и передавать как параметр строку и узнать числовая ли она!!! Помогите!!!
Алгоритм желателен на основе ВынАПЫ и стандартных Паскалевских функ и прощедур!!!
Я САМ ТОЖЕ ДУМАЮ, но 1 хорошо а....

← →
Poirot © (2002-09-13 18:58) [1]

Варианты на С тоже подойдут!!!

← →
DenKop © (2002-09-13 23:30) [2]

Самое простое, что можно придумать без всяких ВинАПЫ:

function IsVal(Str:string):boolean;
var
i:integer;
mn:set of integer;
begin
mn:=[0..9]; Result:=True;
for i:=1 to Length(Str) do
if (not(Str[i] in mn)) and (Str[i]<>DecimalSeparator) then
begin
Result:=False;
Break;
end;
end;

P.S. Возможны ошибки, писал на "лету"

← →
Poirot © (2002-09-14 02:00) [3]

Проблема-то немного хуже
"-" впереди возможна запись через мантису!!!

← →
drpass © (2002-09-14 02:10) [4]

Кхм, извините, что вмешиваюсь...
Конечно, функция, которая примет 575.4757.558585...57 за нормальное число - это очень прикольно, но все-таки попробуйте такой вариант:
function IsVal(S:string):boolean;
begin
result:=true;
try
floattostr(s);
except
result:=false;
end;
end; ?

> floattostr(s);

Надо без этого!!! это уже SysUtils

А что, функции sysutils - нестандартные?
Ну если не нравится floattostr, то возьми древнюю паскалевскую функцию val - даже без try..except обойдешься. Только DecimalSeparator должен быть точкой, а не запятой

Определить число ли В EXCEL??? Найти похожие ветки