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

Вниз

Естъ ли какая функцыя в Delphi ?   Найти похожие ветки 

 
sergeii   (2002-05-13 12:05) [0]

Есть ли функция которая возвращалабы там к примеру true or false при конвертировании текста в число и наоборот. Или ето надо какнибуд посвоиму организовивать?

Спасибо


 
Alx2   (2002-05-13 12:08) [1]

Наподобие этого, может?

Result := True;
try
SomeThing := StrToFloat (....);
except
Result := False;
end;


 
Alx2   (2002-05-13 12:09) [2]

А так смотри процедуру Val там практически все готово.


 
PVOzerski   (2002-05-13 12:20) [3]

Прямо в библиотеках - не припомню. Но организуется элементарно.

1) Число -> строка

А в какой ситуации, по-Вашему, число непредставимо в строковом виде? :^)

2) Строка -> число

function IsNumber(const s:string):boolean;
var
code:integer;
x:extended;
begin
val(s,x,code);
Result:=code=0;
end;

Чуть усложнить эту штуку придётся, если десятичный разделитель
может быть не точкой, а запятой, или если есть знак-разделитель тысяч.
Но тоже ничего особенного нет.



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

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

Наверх





Память: 0.44 MB
Время: 0.011 c
1-73234
ДимкаН
2002-05-15 09:33
2002.05.23
Автоматизация и Excel


7-73430
Vacheslav
2002-02-25 17:11
2002.05.23
Как обработать событие переключения между приложениями?


3-73034
vne
2002-04-26 13:03
2002.05.23
Как найти последнюю запись в выборке Detail таблицы


1-73250
dimmu2
2002-05-05 14:39
2002.05.23
dll на c++


3-73041
Andrey V. Zuev
2002-04-26 15:48
2002.05.23
По ходу выполнения storedproc получать информацию





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