Подпрограммы для работы с символами и строками


function Chr(a: byte): char;

Преобразует код в символ


function ChrUnicode(a: word): char;

Преобразует код в символ в кодировке Unicode (синоним Chr)


function ChrAnsi(a: word): char;

Преобразует код в символ в кодировке Windows


function Ord(a: char): word;

Преобразует символ в код


function OrdUnicode(a: char): word;

Преобразует символ в код в кодировке Unicode (синоним Ord)


function OrdAnsi(a: char): word;

Преобразует символ в код в кодировке Windows


function/b> UpperCase(ch: char): char;

Преобразует символ в верхний регистр


function LowerCase(ch: char): char;

Преобразует символ в нижний регистр


function UpCase(ch: char): char;

Преобразует символ в верхний регистр


function LowCase(ch: char): char;

Преобразует символ в нижний регистр


function Pos(subs,s: string): integer;

Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0


function PosEx(subs,s: string; from: integer := 1): integer;

Возвращает позицию подстроки subs в строке s начиная с позиции from. Если не найдена, возвращает 0


function Length(s: string): integer;

Возвращает длину строки


procedure SetLength(var s: string; n: integer);

Устанавливает длину строки s равной n


procedure Insert(source: string; var s: string; index: integer);

Вставляет подстроку source в строку s с позиции index


procedure Delete(var s: string; index,count: integer);

Удаляет из строки s count символов с позиции index


function Copy(s: string; index,count: integer): string;

Возвращает подстроку строки s длины count с позиции index


function Concat(s1,s2,...: string): string;

Возвращает строку, являющуюся результатом слияния строк s1,s2,...


function Concat(s1,s2: string): string;

Возвращает строку, являющуюся результатом слияния строк s1 и s2


function LowerCase(s: string): string;

Возвращает строку в нижнем регистре


function UpperCase(s: string): string;

Возвращает строку в верхнем регистре


function StringOfChar(ch: char; count: integer): string;

Возвращает строку, состоящую из count символов ch


function ReverseString(s: string): string;

Возвращает инвертированную строку


function CompareStr(s1,s2: string): integer;

Сравнивает строки. Возвращает значение < 0 если s1 0 если s1>s2 и = 0 если s1=s2


function LeftStr(s: string; count: integer): string;

Возвращает первые count символов строки s


function RightStr(s: string; count: integer): string;

Возвращает последние count символов строки s


function Trim(s: string): string;

Возвращает строку с удаленными начальными и конечными пробелами


function TrimLeft(s: string): string;

Возвращает строку с удаленными начальными пробелами


function TrimRight(s: string): string;

Возвращает строку с удаленными конечными пробелами


function Format(fmtstr: string; params pars: array of object): string;

Возвращает отформатированную строку, построенную по форматной строке fmtstr и списку форматиуемых параметров pars


function StrToInt(s: string): integer;

Преобразует строковое представление целого числа к числовому значению


function StrToInt64(s: string): int64;

Преобразует строковое представление целого числа к числовому значению


function StrToFloat(s: string): real;

Преобразует строковое представление вещественного числа к числовому значению


function TryStrToInt(s: string; var value: integer): boolean;

Преобразует строковое представление s целого числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False


function TryStrToInt64(s: string; var value: int64): boolean;


function TryStrToFloat(s: string; var value: real): boolean;

Преобразует строковое представление s вещественного числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False


function TryStrToFloat(s: string; var value: single): boolean;


procedure Val(s: string; var value: integer; var err: integer);

Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0


procedure Val(s: string; var value: shortint; var err: integer);


procedure Val(s: string; var value: smallint; var err: integer);


procedure Val(s: string; var value: int64; var err: integer);


procedure Val(s: string; var value: byte; var err: integer);


procedure Val(s: string; var value: word; var err: integer);


procedure Val(s: string; var value: longword; var err: integer);


procedure Val(s: string; var value: uint64; var err: integer);


procedure Val(s: string; var value: real; var err: integer);

Преобразует строковое представление s вещественного числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0


procedure Val(s: string; var value: single; var err: integer);


procedure Str(i: integer; var s: string);

Преобразует целое значение i к строковому представлению и записывает результат в s


procedure Str(r: real; var s: string);

Преобразует вещественное значение r к строковому представлению и записывает результат в s


function IntToStr(a: integer): string;

Преобразует целое число к строковому представлению


function IntToStr(a: int64): string;

Преобразует целое число к строковому представлению


function FloatToStr(a: real): string;

Преобразует вещественное число к строковому представлению