Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
PM_02_09_02_04_UP_02.---osnovy-algoritmizacii-i-programmirovanija-artyuhina-korenkova — копия.doc
Скачиваний:
45
Добавлен:
09.12.2018
Размер:
3.37 Mб
Скачать

Для работы с датами и временем

Назначение

Пример использования

CurrentYear

Возвращает текущий год

Label2.Caption := IntToStr(CurrentYear)

Date

Возвращает текущую дату

Label2.Caption:= DateToStr(Date)

DayOfWeek

Возвращает число от 1 до 7,которое определяет день недели

If DayOfWeek(Date)=1 then Label2.Caption :='воскресенье';

DecodeDate

Преобразует дату в раздельные составляющие: год, месяц, день

DecodeDate(Date,Year,Moth,Day);

Time

Возвращает текущее время в формате TDateTime

Label2.Caption :=TimeToStr(Time);

DecodeTime

Преобразует время в раздельные составляющие: час, минуту, секунду, миллисекунду

DecodeTime(Time,H,M,Sec,MSec);

IncMonth

Возвращает дату, отстоящую от заданной даты на указанное число месяцев

s:=IncMonth(Date,4);

Диалоговые

Назначение

Пример использования

ShowMessage

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

ShowMessage(‘Error ’)

InputBox

Позволяет создавать окно диалога для ввода пользовательской информации

S:=InputBox('Вход в систему','Ваш пароль','777');

MessageDlg

Позволяет отобразить информационное окно с набором кнопок

If MessageDlg('Вы уверены? ',mtConfirmation,[mbYes,mbNo],0) = mrYes Then Exit;

Преобразование типов

Назначение

Пример использования

VAL

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

VAL(STROKA,Y,CODE)

STR

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

STR(Y,STROKA)

DateToStr

Преобразование даты в строку

Label2.Caption:= DateToStrDate(Date)

StrToDate

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

S:=StrToDate(Edit1.text);

TimeToStr

Преобразование строки во время

Label2.Caption :=TimeToStr(Time);

Для работы с символами и строками

Назначение

Пример использования

CHR

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

S:=CHR(X)

INSERT

Позволяет вставить одну строку в другую, начиная с заданного символа

Insert(context,stroka,3)

COPY

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

S:=COPY(stroka,1,5)

LENGTH

Возвращает число символов строки

K:= LENGTH(stroka)

POS

Возвращает позицию вхождения указанной последовательности символов в заданную строку

K:=POS(context,stroke)

UpperCase

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

S2:= UpperCase(S1)

LowerCase

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

S2:= LowerCase(S1)

DELETE

Позволяет получить строку, из которой удалена заданная часть

DELETE(stroka,2,4)

TRIM

Возвращает строку, в которой удалены пробелы с обеих сторон

S2:=TRIM(s1)