function StrToInt ( IntegerString : string ) : Integer;
Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x.
Примечания
Исключение EConvertError будет брошено, если есть ошибки в IntegerString, типа конечных пробелов, десятичных точек, недопустимых десятичных или шестнадцатеричных символов.
Похожие команды
Integer Основной тип целого числа
IntToStr Конвертирует целое число в строку
StrToInt64 Преобразует строку с целым значением в Int64
StrToInt64Def Преобразует строку с целым значением в Int64, учитывая значение по умолчанию
StrToIntDef Преобразует строку с значение с типом Integer, учитывая значение по умолчанию
Пользователь воспринимает это так, будто вводит сразу цифры, однако мы то знаем, что это строка только символов, изображающая число. И чтобы действительно превратить ее в число, приходится использовать преобразования типов. Некоторыми функциями, которые служат этим целям, мы уже пользовались, давайте упорядочим эти знания и изучим новые функции.
IntToStr()
StrToInt()
FloatToStr()
Эта функция также предназначена для всех типов вещественных чисел.
StrToFloat()
FormatFloat()
Она имеет два параметра – строку формата и само число. Строка может содержать следующие форматы:
Таблица 15.1. Возможные форматы FormatFloat()
Строка, указываемая в формате
Примеры чисел
1234
-1234
0,5
0
0
1234
-1234
1
0
0.00
1234,00
-1234,00
0,50
0,00
#.##
1234
-1234
0,5
0
#,0.00
1 234,00
-1 234,00
0,50
0,00
Есть и другие варианты форматов, например, для представления числа в экспонентной форме, но они, как правило, не используются.
Поясним строку форматов подробней.
В первом случае показаны варианты возвращаемых строк, если строка форматов вообще не указана.
«Решетка» (#) работает также, как «ноль», с той разницей, что если на этом месте не окажется цифры, то «решетка» ничего не выведет, а «ноль» подставит в это место ноль.
Знак запятая здесь указывают для удобного отображения разрядности числа. Например, миллион будет выглядеть как строка ‘1 000 000’. Заметим, что на само число этот формат не оказывает никакого влияния, он нужен только для того, чтобы выводить число в удобочитаемой форме в виде строки.
Вопросы и ответы
Я записан на программу. Куда высылать договор и диплом?
Во-первых, разрешите поблагодарить Вас за замечательный курс, который я прошёл с удовольствием.
В 32 лекции при изучении работы с индексами и фильтрами у меня возникла ошибка.
Исходные данные: система Windows 10.
Database Desktop не заработал (ни под админом, ни в режиме совместимости).
Поэтому сделал базу в MS Access, подключил её к приложению через ADO Connection и таблицы ADO Table + DataSource. Провайдер Microsoft.Jet.OLEDB.4.0.
Всё работает как надо, кроме индексов (сортировки) и фильтрации.
Текст ошибки: «Текущий поставщик не поддерживает необходимый интерфейс для функции ‘Index’ «.
Советы из форумов не сработали.
Пробовал: устанавливать курсор на стороне сервера, перечислять индексируемые поля в IndexFieldNames, выбирать других провайдеров OLE DB. Ничего не получилось.
Может подскажете какой-нибудь выход?
В рабочей программе, выберу другую СУБД, но хочется ведь чтобы и учебные примеры заработали (для меня это значит, что тема усвоена).
С уважением, Аюпов Рустэм.
Update: решил для себя эту проблему установкой в виртуалку WinXP 32. Database Desktop завёлся, всё получилось.
В этом уроке мы рассмотрим функции преобразования чисел в строки и строк в числа. Давайте рассмотрим часто используемые функции StrToInt, IntToStr, FloatToStr, StrToFloat. Во многих случаях эти функции являются очень полезными в том плане, что они позволяют преобразовывать целочисленные и нецелочисленные переменные типов Integer, Byte, Double, Real и т.п. в их строковое представление в переменную типа String и обратно, если это возможно. Рассмотрим непосредственно сами функции по порядку. [cc lang=»delphi»]var a: integer; s: string; begin a := 12345; s := IntToStr(a); // в результате переменная s будет содержать в себе строку ‘12345’ end;[/cc] Т.е. функция IntToStr позволяет преобразовывать целочисленную переменную типа integer или byte в ее строковое представление в переменную типа string;
Обратную возможность реализовывает функция StrToInt. [cc lang=»delphi»]var a: integer; s: string; begin s := ‘12345’; // В s должно быть введено обязательно целочисленное число без лишних символов! // иначе программа, во время выполнения «конвертации» завершит свою работу // с ошибкой. a := StrToInt(s); // в результате переменная a будет содержать в себе число 12345. end;[/cc]
Те же возможности нам помогают реализовать функции FloatToStr и StrToFloat, однако они уже позволяют работать с нецелочисленными переменными типа Double, Real и т.п. Работа с ними абсолютно аналогична работе с функциями IntToStr и StrToInt. [note]Стоит отметить одну важную особенность при переводе строки в нецелочисленное число. В качестве плавающей запятой в «строках-числах» нужно использовать символ «точка», а не символ «запятая». При переводе нецелочисленного числа в строку эта особенность учитывается функцией FloatToStr автоматически.[/note]
function NewStrtconst(S: String): PString; Создает копию строки S и возвращает указатель на нее.
procedure DisposeStr(P: PString) ; Уничтожает строку, на которую указывает Р.
procedure AssignStr(var P: PString; const S: strings) Уничтожает строку, на которую указывает Р и затем присваивает ему адрес созданной копии строки S.
procedure AppendStrfvar Dest: string; const S: string); Добавляет строку S в конец строки Dest.
function Uppercase(const S: string): string; Преобразует символы ‘a’..’z’ в строке S к верхнему регистру.
function LowerCase(const S: string): string; Преобразует символы ‘A’..’Z’ в строке S к нижнему регистру.
function CompareStr(const SI, S2: string): Integer; Сравнивает две строки S1 и S2 с учетом регистра символов. Возвращаемое значение равно 0 в случае равенства строк или разности кодов пары первых несовпадающих символов.
function CompareText(const SI, S2: string): Integer; Сравнивает две строки без учета регистра символов.
function AnsiUpperCase(const S: string): string; Преобразует символы в строке к верхнему регистру с учетом языкового драйвера.
function AnsiLowerCase(const S: string) : string; Преобразует символы в строке к нижнему регистру с учетом языкового драйвера.
function AnsiCompareStr(const SI, S2: string): Integer; Сравнивает две строки с использованием языкового драйвера и с учетом регистра символов.
function AnsiCompareText(const SI, S2 : string) : Integer; Сравнивает две строки с использованием языкового драйвера и без учета регистра символов.
function IsValidldent(const Ident: string): Boolean; Возвращает True, если строка Ident может служить идентификатором в программе на Object Pascal (т. е. содержит только буквы и цифры, причем первый символ — буква).
function IntToStr(Value: Longint): string; Преобразует целое число в строку.
function IntToHex(Value: Longint; Digits: Integer): s t r ing ; Преобразует целое число в строку с его шестнадцатиричным представлением.
function StrToInt(const S: string): Longint; Преобразует строку в целое число. При ошибке возникает исключительная ситуация EConvertError.
function StrToIntDef(const S: string; Default; Longint): Longint ; Работает как StrToInt, но при ошибке возвращает значение Default.
function LoadStr(Ident: Word) : string; Загружает строку с индексом Ident из ресурсов приложения.
function FmtLoadStr(Ident: Word; const Args: array of const): string; Загружает строку с индексом Ident из ресурсов приложения с форматированием (см. описание функции Format).
Результирующая строка S будет суммой двух слагаемых строк. Длина строки, то есть количество символов в строке, возвращается встроенной функцией
function Length(S: String): Integer;
Delphi работает со строками типа String, в котором длина строки записывается в начале строки, перед первым символом. Поэтому индекс первого символа в строке не 0, а 1. То есть, если:
S:=’Строка типа String’;
function PChar(S: String): PChar;
Для полноценной работы со строками Delphi используются следующие стандартные процедуры и функции:
Функции преобразования в числовой формат и обратно
Выполняя вычисления, используем для ввода данных и отображения результатов следующие функции, работающие со строками Delphi:
функция IntToStr(N: Integer): String Преобразует целое число N в строку.
функция StrToInt(S: String): Integer Преобразует строку S в целое число.
функция FloatToStr(X: Extended): String Преобразует число с плавающей точкой X в строку.
функция StrToFloat(S: String): Extended Преобразует строку S в число с плавающей точкой.
Процедуры и функции преобразования дат и времени
Сначала собственно функции, предоставляющие информацию о текущих дате и времени:
функция Now: TDateTime Возвращает текущую дату и время.
функция Date: TDateTime Возвращает текущую дату.
функция Time: TDateTime Возвращает текущее время.
Далее, функции, работающие с составляющими даты и времени (год, месяц, число, день недели, часы, минуты, секунды и даже миллисекунды):
функция DateTimeToStr(DateTime: TDateTime): String Преобразует дату и время DateTime в строку.
функция DateToStr(Date: TDateTime): String Преобразует дату Date в строку.
функция TimeToStr(Time: TDateTime): String Преобразует время Time в строку.
Следующие функции работают с параметрами возвращаемой строки. Функции с приставкой Ansi работают в том числе и с кириллическими символами. Если символы в строках предполагаются исключительно латинские, то можно использовать аналогичные функции, но без приставки Ansi:
функция AnsiLowerCase(const S: String): String Возвращает строку S, преобразованную к нижнему регистру.
функция AnsiUpperCase(const S: String): String Возвращает строку S, преобразованную к верхнему регистру.
функция Length(const S: String): Integer Возвращает количество символов в строке S.
функция Trim(const S: String): String Удаляет из строки S начальные и завершающие пробелы и управляющие символы.
функция TrimLeft(const S: String): String Удаляет из строки S начальные пробелы и управляющие символы.
функция TrimRight(const S: String): String Удаляет из строки S завершающие пробелы и управляющие символы.
Следующие функции сравнивают две строки между собой:
функция AnsiCompareStr(const S1, S2: String): Integer Сравнивает две строки S1 и S2 с учётом регистра символов. Возвращает значение 0 если S1>S2
функция AnsiCompareText(const S1, S2: String): Integer Сравнивает две строки S1 и S2 без учёта регистра символов. Возвращает значение 0 если S1>S2
Следующие функции осуществляют поиск в текущей строке подстроки, вставляют, удаляют или заменяют подстроку:
функция Copy(S: String; Index, Count: Integer): String Возвращает подстроку строки S, начиная с номера символа, равного Index и содержащую до Count символов.
Помимо прочего, эту функцию можно использовать для вывода нецелого числа с нужным количеством цифр после запятой. Для этого, сначала получаем строку из числа формата Real, затем находим функцией Pos позицию запятой в этой строке, прибавляем нужное количество и копируем в результат это количество символов. Вот готовая функция:
Или вот, к примеру, текст модуля, обеспечивающего ввод в компонент Edit только чисел.
