Глава 12. РАЗРАБОТКА ОКОННОГО ИНТЕРФЕЙСА
function Pos(Substr: string; S: string
): Integer; |
Ищет вхождение подстроки Substr в строке S и возвращает позицию
, с которой начинается подстрока. Если вхождение не найдено
, возвращает 0 |
function Copy(S; Index, Count: Integer
): string; |
Возвращает подстроку строки S, начинающуюся с позиции Index и
имеющую длину Count символов |
procedure Delete(var S: string; Index,
*Count:Integer); |
Удаляет из строки S символы, количеством Count, начиная
с позиции Index |
procedure Insert(Source: string; var S:
string; Index: Integer); |
Вставляет подстроку Source в строку S начиная с позиции Index |
function Length(S): Integer; |
Возвращает длину строки S в виде целого числа |
function Format(const Format: string; const Args
: array of const): string; |
Форматирует последовательность аргументов в открытом массиве Args. Форматирование управляется
строкой Format. Например, все вхождения комбинации символов %
s будут заменяться соответствующими строками в массиве, а %
d – целыми числами. Подробнее см. в специальной
литературе по Delphi. |
function FormatDateTime(const Format: string; DateTime:
TDateTime): string; |
Форматирует дату и время в соответствии с шаблоном. Например
, ‘dd.mm.yyyy’. Подробнее см
. в литературе по Delphi |
function FormatFloat(const Format: string; Value:
Extended): string; |
Форматирует число нецелого типа при помощи шаблона, например вида
‘#,##0.00’ |
function DateToStr(Date: TDateTime): string; |
Преобразует тип даты в строку соответствии с текущим коротким форматом
даты, берущимся из региональных установок Windows при запуске программы |
function IntToStr(Value: Int64): string; |
Преобразует целое число в строку |
function StrToInt(const S: string): Integer; |
Преобразует строку в целое число. Если строка не представляет
собой правильное представление целого числа, генерируется исключительная ситуация. |
function StrToIntDef(const S: string; Default:
Integer): Integer; |
Преобразует строку в целое число. Если строка не представляет
собой правильное представление целого числа, возвращает значение, переданное
в параметре Default. |
function DayOf(const AValue: TDateTime): Word; |
Возвращает день (1…31) месяца из даты |
function MonthOf(const AValue: TDateTime): Word; |
Возвращает месяц (1…12) из даты |
function YearOf(const AValue: TDateTime): Word; |
Возвращает год (1…9999) из даты |
function WeekOf(const AValue: TDateTime): Word; |
Возвращает неделю (1…53) из даты |
function EncodeDate(Year, Month, Day: Word
): TDateTime; |
Возвращает дату, сконструированную из года, месяца и дня
, переданных в виде параметров |
procedure DecodeDate(Date: TDateTime; var Year,
Month, Day: Word); |
Декодирует дату, заполняя значениями параметры года, месяца и
дня. |
function DaysInMonth(const AValue: TDateTime): Word; |
Возвращает количество дней в месяце, в который входит дата
AValue |
function DaysInAMonth(const AYear, AMonth: Word):
Word; |
Возвращает количество дней в месяце AMonth в году AYear |
function IncMonth(const Date: TDateTime; NumberOfMonths:
Integer = 1): TDateTime; |
Возвращает дату, сдвинутую на NumberOfMonths месяцев относительно Date.
Если дата выходит за конец месяца, возвращает дату конца
месяца |
procedure ShowMessage(const Msg: string); |
Выводит текстовое сообщение в простейшем модальном окне с кнопкой OK |
function MessageDlg(const Msg: string; DlgType:
TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint):
Word; |
Выводит диалоговое окно с сообщением Msg. Слева от сообщения
изображается значок, в зависимости от параметра DlgType. В
параметре Buttons нужно передать множество кнопок, которые диалог должен
отобразить. Диалог возвращает значение, в зависимости от того
, какая кнопка была нажата, например, mrOK или
mrCancel. Подробнее см. в литературе по Delphi |