Функція StrToIntDef – перетворює рядок на значення з типом Integer, враховуючи значення за замовчуванням

Функція StrToIntDef в Delphi перетворює рядок на значення з типом Integer, враховуючи значення за замовчуванням.

Функція StrToIntDef: Приклад перетворення десяткових та шістнадцяткових чисел

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

begin
  A := 32;
  B := StrToIntDef('100',0);    // рядок '100' перетворюється на ціле чисельне 100
  C := StrToIntDef('  -12',0);  // Початкові прогалини ігноруються
  D := StrToIntDef('$1E',0);    // Шістнадцяткові значення починаються з '$'
  E := StrToIntDef('-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;

Функція StrToIntDef: Захоплення помилок перетворення рядка на ціле значення

var
  A : Int64;

begin
  // Немає необхідності перехоплювати помилки конверсії
  A := StrToIntDef('100 ', 55);    // Кінцеві прогалини не підтримуються
  ShowMessage('Value = '+IntToStr(A));

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