Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Находится ли мышь над формой
   Категория: Компоненты
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система
  Округление времени до 5 мин
   Категория: Базы данных
  Автоматическое определения кодировки текста
   Категория: Текст и строки
  Как удалить не пустой каталог
   Категория: Файловая система
  BDE. Динамическое создание псевдонима
   Категория: Базы данных
  Что такое хук (hook)?
   Категория: Приложение
  Поиск по EasyTable
   Категория: Базы данных

Delphi - Справочник: StrToInt64Def

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 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) значению по умолчанию.

  << Вернуться