Клуб программистов

    Функция StrToInt64Def конвертирует строку с целым значением - IntegerString, такую как '123', в целое Int64, возвращая Default, если преобразование не удалось.

     Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x.

var
   A, B, C, D, E, F : Int64;

begin
   A := 32;
   B := StrToInt64Def('100', 0); // '100' string converted to 100 integer
   C := StrToInt64Def(' -12', 0); // Leading blanks are ignored
   D := StrToInt64Def('$1E', 0); // Hexadecimal values start with a '$'
   E := StrToInt64Def('-0x1E', 0); // ... or with a '0x'
   F := A + B + C + D + E; // Lets add up all these integers
  
   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
   // No need to catch conversion errors
   A := StrToInt64Def('100 ', 55);
  //Trailing blanks are not supported
   ShowMessage('Value = '+IntToStr(A));

   A := StrToInt64Def('$FG' , 66);
  // 'G' is an invalid hexadecimal digit
   ShowMessage('Value = '+IntToStr(A));
end;

Value = 55
Value = 66