Delphi-Help

Описание

function StrToInt64Def ( const IntegerString : string; Default : Integer ) : 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;

A : 32
B : 100
C : -12
D : 30
E : -30
F : 120

var
A : Int64;

begin
// Нет необходимости перехватывать конверсионные ошибки
A := StrToInt64Def('100 ', 55);    // Конечные пробелы не поддерживаются
ShowMessage('Value = '+IntToStr(A));

A := StrToInt64Def('$FG' , 66);    // 'G' - недопустимая шестнадцатеричная цифра
ShowMessage('Value = '+IntToStr(A));
end;

Value = 55
Value = 66

Примечание

Никакие конверсионные ошибки не генерируются - плохое преобразование просто возвращает (Default) значению по умолчанию.