Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Вниз

Определить число ли В 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 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.006 c
1-85457
BillyJeans
2002-09-16 10:44
2002.09.26
как блокировать повторный запуск?


1-85436
Shrek
2002-09-13 18:17
2002.09.26
Реестр


6-85639
Leny
2002-07-24 10:38
2002.09.26
Обработка Ошибки


1-85565
GoodMan
2002-09-12 15:30
2002.09.26
Помогите собрать число


1-85550
Виталий Панасенко
2002-09-12 09:16
2002.09.26
Использования консольного приложения в батнике





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский