Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Получить имена всех папок и файлов в директории
Категория: Файловая система
Категория: Файловая система
Находится ли мышь над формой
Категория: Компоненты
Категория: Компоненты
Как запустить приложение, дождаться его исполнения
Категория: Приложение
Категория: Приложение
Как произвести поиск файлов во вложенных папках
Категория: Файловая система
Категория: Файловая система
Округление времени до 5 мин
Категория: Базы данных
Категория: Базы данных
Автоматическое определения кодировки текста
Категория: Текст и строки
Категория: Текст и строки
Как удалить не пустой каталог
Категория: Файловая система
Категория: Файловая система
BDE. Динамическое создание псевдонима
Категория: Базы данных
Категория: Базы данных
Что такое хук (hook)?
Категория: Приложение
Категория: Приложение
Поиск по EasyTable
Категория: Базы данных
Категория: Базы данных
Delphi - Справочник: StrToInt64Def
StrToInt64Def
|
function StrToInt64Def ( const IntegerString : string; Default : Integer ) : Int64; |
Функция (Unit SysUtils)
|
Преобразует строку с целым значением в Int64, учитывая значение по умолчанию
|
Описание:
|
Функция StrToInt64Def конвертирует строку с целым значением - IntegerString, такую как '123', в целое Int64, возвращая Default, если преобразование не удалось. Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x. |
Пример кода: Пример
|
//Пример кода : Преобразование десятичных и шестнадцатеричных чисел var A, B, C, D, E, F : Int64; begin A := 32; B := StrToInt64Def('100',0); // строка '100' преобразуется в целочисленное 100 C := StrToInt64Def(' -12',0); // Начальные пробелы игнорируются D := StrToInt64Def('$1E',0); // Шестнадцатеричные значения начинаются с '$' E := StrToInt64Def('-0x1E',0); // ... или с '0x' F := A + B + C + D + E; // Складываем все эти целые числа ShowMessage('A : '+IntToStr(A)); ShowMessage('B : '+IntToStr(B)); ShowMessage('C : '+IntToStr(C)); ShowMessage('D : '+IntToStr(D)); ShowMessage('E : '+IntToStr(E)); ShowMessage('F : '+IntToStr(F)); end; //Пример кода : Захват ошибок преобразования строки в целочисленное значение var A : Int64; begin // Нет необходимости перехватывать конверсионные ошибки A := StrToInt64Def('100 ', 55); // Конечные пробелы не поддерживаются ShowMessage('Value = '+IntToStr(A)); A := StrToInt64Def('$FG' , 66); // 'G' - недопустимая шестнадцатеричная цифра ShowMessage('Value = '+IntToStr(A)); end;
Результат:
|
A : 32 B : 100 C : -12 D : 30 E : -30 F : 120 Value = 55 Value = 66 |
Примечание:
|
Никакие конверсионные ошибки не генерируются - плохое преобразование просто возвращает (Default) значению по умолчанию. |