Скачать: CL | DM;

Определить число ли В 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; ?

---

← →
Poirot ©   (2002-09-14 07:44) [5]

> floattostr(s);

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

---

← →
drpass ©   (2002-09-14 12:26) [6]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c