Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Как запустить приложение, дождаться его исполнения
Категория: Приложение
Категория: Приложение
Компоненты CoolBar и ControlBar
Категория: Компоненты
Категория: Компоненты
Округление в меньшую сторону
Категория: Математика
Категория: Математика
Замена подстроки в строке
Категория: Текст и строки
Категория: Текст и строки
Изменить структуру ABS (AbsoluteDB)
Категория: Базы данных
Категория: Базы данных
Получить имена всех папок и файлов в директории
Категория: Файловая система
Категория: Файловая система
Cколько файлов есть в определённой папке
Категория: Файловая система
Категория: Файловая система
Компоненты TrackBar и ScrollBar
Категория: Компоненты
Категория: Компоненты
Компоненты TabControl, PageControl, TabSet, TabbedNoteBook, NoteBook
Категория: Компоненты
Категория: Компоненты
Получить изображение формы в виде Bitmap и поместить его в буфер обмена
Категория: Компоненты
Категория: Компоненты
Delphi - Справочник: StrToInt
StrToInt
|
function StrToInt ( IntegerString : string ) : Integer; |
Функция (Unit SysUtils)
|
Преобразует строку с целым значением в Integer
|
Описание:
|
Функция StrToInt конвертирует строку с целым значением - IntegerString, такую как '123', в целое Integer. Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x. |
Пример кода: Пример
|
//Пример кода : Преобразование десятичных и шестнадцатеричных чисел 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; //Пример кода : Захват ошибок преобразования строки в целочисленное значение 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;
Результат:
|
A : 32 B : 100 C : -12 D : 30 E : -30 F : 120 '100 ' is not a valid integer value '$FG' is not a valid integer value |
Примечание:
|
Исключение EConvertError будет брошено, если есть ошибки в IntegerString, типа конечных пробелов, десятичных точек, недопустимых десятичных или шестнадцатеричных символов. |