9. Программирование в системе Delphi с помощью строк

‘abc’

‘abc’

false

true

false

true

true

false

‘abcd’

‘abc’

true

true

false

false

false

true

‘bac’

‘abc’

true

true

false

false

false

true

function Concat (SI [ , S2, ..., SN] : String) : String;

Возвращает строку, представляющую собой сцепление строк-параметров S1, S2, ..., SN

function Copy (St: String; index, Count: integer): String;

Копирует из строки St Count символов, начиная с символа с номером Index

procedure Delete (St: String; index, Count: Integer);

Удаляет Count символов из строки St, начиная с символа с номером Index

procedure Insert (SubSt: String; St, index: Integer);

Вставляет подстроку SubSt в строку St, начиная с символа с номером Index

function Length (St: String) : integer;

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

function Pos (SubSt, St: String): integer;

Отыскивает в строке St первое вхождение подстроки SubSt и возвращает номер позиции, с которой она начинается. Если подстрока не найдена, возвращается ноль

procedure SetLength (St: String; NewLength: Integer);

Устанавливает новую (меньшую) длину NewLengh строки St. Если NewLengh больше текущей длины строки, обращение к SetLength игнорируется

function StrToCurr (St: String): Currency;

Преобразует символы строки St в число типа Currency. Строка не должна содержать ведущих или ведомых пробелов

function StrToDate (St: String): 'ГdateTime;

Преобразует символы строки St в дату. Строка должна содержать два или три числа, разделенных правильным для Windows разделителем даты (в русифицированной версии таким разделителем является <.>). Первое число – правильный день, второе – правильный месяц. Если указано третье число, оно должно задавать год в формате XX или ХХХХ. Если символы года отсутствуют, дата дополняется текущим годом. Например, DateToStr(StrToDate ('28.06')) даст строку '28 .06. 09'

function StrTоDateTime (St: String): TdateTime;

Преобразует символы строки St в дату и время. Строка должна содержать правильную дату (см. StrToDate) и правильное время (см. StrToTime), разделенные пробелом, например:

StrToDateTime('28.06 18:23')

function StrToFloat (St: String): Extended;

Преобразует символы строки St в вещественное число. Строка не должна содержать ведущих или ведомых пробелов

function StrToInt (St: String): Integer;

Преобразует символы строки St в целое число. Строка не должна содержать ведущих или ведомых пробелов

function StrTolntDef (St: String; Default: Integer): Integer;

Преобразует символы строки St в целое число. Если строка не содержит правильного представ­ления целого числа, возвращается значение Default

functiton StrTOIntRange (St: String; Min, Max: LongInt) : LongInt;

Преобразует символы строки St в целое число и возбуждает исключение ERangeError, если число выходит из заданного диапазона Min...Max

Процедура или функция

Пояснение

function StrToTime (St: String): TdateTime;

Преобразует символы строки St во время. Строка должна содержать два или три числа, разделенных правильным для Windows, разделителем времени (для русифицированной версии таким разделителем является < >). Числа задают часы, минуты и, возможно, секунды. За последним числом через пробел могут следовать символы <am> или <pm>, указывающие на 12-часовой формат времени

Procedure Val (St: String; var X;Code: lnteger);

Преобразует строку символов во внутреннее представление целой или вещественной переменной X, которое определяется типом этой переменной. Параметр Code содержит ноль, если преобразование прошло успешно, и тогда в Х помещается результат преобразования, в противном случае он содержит номер позиции в строке St, где обнаружен ошибочный символ, и в этом случае содержимое X не меняется. В строке St могут быть ведущие и/или ведомые пробелы

function DateToStr (Value: TDateTime): String;

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

function DateTimeToStr (Value: TdateTime): String;

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

procedure DateTimeToString (var St: String; Format: String; Value: TdataTime); .

Преобразует дату и время из параметра Value в строку St в соответствии со спецификаторами параметра Format

function FormatDateTime (Format: String; Value: TDateTime): String;

Преобразует дату и время из параметра Value в строку символов в соответствий со спецификаторами параметра Format

function FloatToStr (Value: Extended): String;

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

Процедуры и функции

Пояснения

function FloatToStrF (Value: Extended; Format: TFIoatFormat; Precision, Digits: Integer): String;

Преобразует вещественное значение Value в строку символов с учетом формата Format и параметров Precision и Digits

function FormatFloat (Format: String; Value: Extended): String;

Преобразует вещественное значение Value в строку символов с учетом спецификаторов формата Format (см. пояснения ниже)

function IntToStr (Value: In­teger) : String;

Преобразует целое значение Value в строку символов.

function TimeToStr (Value: TdateTime): String;

Преобразует время из параметра Value в строку символов

procedure Str(X [:Width [:Decimals]]; var St: String);

Преобразует число X любого вещественного или целого типа в строку символов St; параметры Width и Decimals, если они присутствуют, задают формат преобразования: Width определяет общую ширину поля, выделенного под соответствующее символьное представление вещественного или целого числа X, a Decimals − количество символов в дробной части (этот параметр имеет смысл только в том случае, когда X − вещественное число)

c

Отображает сначала дату в формате дд.мм.гг, затем через пробел время в формате чч.мм.сс: 08.06.09 19:45

d

Отображает день без ведущего нуля: 8

dd

Отображает день с ведущим нулем: 08

dddd

Отображает день недели: воскресенье (для нерусифицированной версии-Windows-sunday)

ddddd

Отображает дату в формате дд.мм.гг: 08.06.09

dddddd

Отображает дату в формате день Месяц год: 8 Июнь 2009 (для нерусифицированной версии Windows – 8 June 2009)

Спецификаторы

Пояснения

m

Отображает число месяца без ведущего нуля: 6

mm

Отображает число месяца с ведущим нулем: 06

mmm

Отображает сокращенное название месяца: июнь

mmmm

Отображает полное название месяца: Июнь

у или yy

Отображает две последние цифры года: 09

yyy или yyyy

Отображает все цифры года: 2009

h

Отображает час без ведущего нуля: 19

hh

Отображает час с ведущим нулем: 19

n

Отображает минуты без ведущего нуля: 45

nn

Отображает минуты с ведущим нулем: 45

s

Отображает секунды без ведущего нуля: 0

ss

Отображает секунды с ведущим нулем: 00

t

Отображает время в формате чч:мм: 19: 45

tt

Отображает время в формате чч:мм:сс: 19: 45: 00

am/pm

Отображает время в 12-часовом формате (am – до полудня, рm – после полудня). Для спецификаторов hh: mm am/pm получим 07: 45 pm

ampm '

Отображает время в 12-часовом формате, но без указания до/после полудня. Для спецификаторов hh:mm ampm получим 07: 45

a/p

Отображает время в 12-часовом формате а – до полудня, p – после полудня). Для спецификаторов hh:mm a/p получим 07: 45 p.

/

Отображает используемый в Windows разделитель даты. Для спецификаторов d/m/y получим 8.6.09

:

Отображает используемый в Windows разделитель времени. Для спецификаторов h:n:m получим 19:45:0

function CharToOem (Str, OemStr: Pchаr): Bool;

Преобразует символы строки Str из кодировки ANSI в кодировку DOS и помещает результат в OemStr. Всегда возвращает True

function ChàrToOemBuff (Str, OemStr: PChàr; MаxLen: LongInt): Bool;

Преобразует не более MaxLen символов cтроки Str из кодировки ANSI в кодировку DOS и помещает результат в OemStr. Всегда возвращает True

function StrCаt(Dest, Source: PChаr): PChаr;

Копирует строку Source в конец строки Dest и возвращает указатель на строку Dest

function StrComp (Strl, Str2: PChаr): Integer;

Побайтно сравнивает строку Str1 со строкой Str2 и возвращает следующий результат: =0 для Str1=Str2; > 0 для Str1 > Str2; < 0 для Str1 < Str2

function StrCopy(Dest, Source: PChаr): PChаr;

Копирует строку Source в строку Dest и возвращает указатель на Dest. StrCopy не проверяет реальный размер памяти, связанный с Dest (он должен быть не меньше StrLen (Source )+1)

procedure StrDispose (Str: PChаr);

Удаляет строку Str из памяти. Строка должна быть предварительно помещена в память функцией StrNew. Если Str=NlL, процедура ничего не делает

function StrECopy(Dest, Source: Pchаr): PChàr;

Объединяет строки. Эта функция работает в точности как StrCat, но возвращает указатель на конец сцеплен­ных строк, т.е. на терминальный ноль

function StrEnd (Str: PChàr): Pchàr;.

Функция возвращает указатель на терминальный ноль строки Str

function StrIComp(Strl, Str2: PChаr): Pchаr;

Функция сравнивает строки, игнорируя возможную раз­ницу в высоте букв. Возвращает такой же результат, как и StrComp. Функция правильно работает лишь с латиницей. Для кириллицы ее нужно модифицировать

function StrLCаt(Dest, Source: PChàr; MaxLen: Word): PChàr;

Копирует символы строки Source в конец строки Dest до тех пор, пока не будут скопированы все символы или когда длина сцепленной строки Dest не достигнет MaxLen. Возвращает указатель на сцепленную строку. В отличие от StrCopy эта функция блокирует возможное переполнение области памяти, связанной с Dest. Обычно в качестве MaxLen используется выражение SizeOf(Dest)-l

Процедура или функция

Пояснение

function StrLComp(Dest, Source: Pchаr; MaxLen: Word): Pchаr;

В отличие от StrComp сравнивает не более MaxLen сим­волов строк. Возвращаемый результат такой же, как и у StrComp

function StrLCopy ( Dest, Source: PChàr; MàxLen: Word): PChаr;

Копирует символы из строки Source в строку Dest до тех пор, пока не будет скопирована вся строка или пока не будет скопировано МaxLеn символов. В отличие от StrCopy блокирует возможность переполнения области памяти, связанной с Dest. В качестве MaxLen обычно используется выражение SizeOf(Dest)-l

function StrLen(Str: PChаr): Cardinal;

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

function StrLIComp(Strl, Str2: PChаr; MаxLen: Word): PChаr;

Сравнивает не более MaxLen символов строк, проверяя точное соответствие высоты букв. Возвращаемый результат см. StrСomр. Функция правильно работает только с латиницей.

function StrLower(Str: PChàr): PChаr;

Преобразует заглавные буквы строки Str к строчным и возвращает указатель на результат. Функция правильно работает только с латиницей

function StrMove(Dest, Source: PChаr; Count: Word): Pchàr;

Копирует точно Count символов строки Source в строку Dest и возвращает указатель на результат. Функция игнорирует действительные размеры строк и может выйти за их пределы

function StrNew(Str: PChаr): Pchar;

Помещает строку в память

function StrPas(Str: PChàr): String;

Преобразует нуль-терминальную строку в строку String

function StrPCopy(Str: PChаr; S: String); PChar;

Преобразует строку String в нуль-терминальную строку. Возвращает указатель на Str

function StrPos(Strl, Str2: PChàr): PChàr;

Ищет подстроку Str2 в строке Str1 и возвращает указатель на первое вхождение Str2 или NIL, если подстрока не найдена

function StrRScan(Str: PChar; Ch: Chàr): PChàr;.

Ищет символ Ch в строке Str и возвращает указатель на последний обнаруженный символ Ch или NIL, если символ не найден

function StrScan(Str: PChar; Ch: Char): Pchar;

Ищет символ Ch в строке Str и возвращает указатель на первый обнаруженный символ Ch или NIL, если символ не найден

Процедура или функция

Пояснение

function StrUpper (Str: PChar): PChаr;

Преобразует строчные буквы строки Str к заглавным и возвращает указатель на результат. Функция правильно работает только с латиницей

function OemToChаr (OEMStr, Str: Pchar): Bool;

Преобразует символы из кодировки DOS в кодировку ANSI и возвращает Truе

function OemToCharBuff (OEMStr, Str: PChаr; MaxLen: LongInt): Bool;

Преобразует не более MaxLen символов строки OemStr из кодировки DOS в кодировку ANSI и помещает результат в Str. Всегда возвращает True

Form1: TForm

Name

Caption

Form1

Работа со строками

Button1: TButton

Name

Caption

Button1

Преобразовать

Button2: TButton

Name

Caption

Button1

Выход

Label1: TLabel

Name

Caption

Label1

Введите строку

Edit1: TEdit

Name

Text

Edit1

отсутствует

Edit2: TEdit

Name

Text

Edit2

отсутствует