Справочник функций и процедур Delphi: StrToInt

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

StrToInt
Функция
Преобразует строку с целым значением в Integer SysUtils unit
  function StrToInt ( IntegerString : string ) : Integer;

Delphi Sources

Описание
Функция 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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте