Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
StrToInt
Функция
Преобразует строку с целым значением в Integer SysUtils unit
  function StrToInt ( IntegerString : string ) : Integer;
Описание
Функция StrToInt конвертирует строку с целым значением - IntegerString, такую как '123', в целое Integer.

Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x.
Примечания
Исключение EConvertError будет брошено, если есть ошибки в IntegerString, типа конечных пробелов, десятичных точек, недопустимых десятичных или шестнадцатеричных символов.
Похожие команды
Integer  Основной тип целого числа

IntToStr  Конвертирует целое число в строку

StrToInt64  Преобразует строку с целым значением в Int64

StrToInt64Def  Преобразует строку с целым значением в Int64, учитывая значение по умолчанию

StrToIntDef  Преобразует строку с значение с типом Integer, учитывая значение по умолчанию

 
Пример кода : Преобразование десятичных и шестнадцатеричных чисел
var
  A, B, C, D, E, F : Integer;

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

begin
  // Мы перехватим конверсионные ошибки
  try
    A := StrToInt('100 ');    // Конечные пробелы не поддерживаются
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;

  try
    A := StrToInt('$FG');    // 'G' - недопустимая шестнадцатеричная цифра
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;
end;
'100 ' is not a valid integer value
'$FG' is not a valid integer value
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия