Главная страница
    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.007 c
1-85493
Shrek
2002-09-13 21:06
2002.09.26
Вопрос для Мастеров. На засыпку.


1-85520
Ryser
2002-09-16 13:27
2002.09.26
Как значение в Label привести к виду


14-85687
Елена
2002-09-02 06:48
2002.09.26
Оффлайн браузер


14-85679
Карлсон
2002-08-30 23:19
2002.09.26
а кто-нить качал....


3-85330
maxim2
2002-09-04 12:51
2002.09.26
В Table есть свойства Recno и Recordcount а есть ли такиеже в AD





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский