- •Содержание
- •Введение
- •Теоретическая часть Процедуры и функции Delphi Математические
- •Для работы с датами и временем
- •Диалоговые
- •Преобразование типов
- •Для работы с символами и строками
- •Именованные константы в Delphi Именованные константы тип tColor
- •Именованные константы, определяющие стиль линии
- •Именованные константы, определяющие стиль заполнения замкнутого контура
- •Практическая часть практическая работа № 1
- •Практическая работа № 2
- •Практическая работа № 3
- •Практическая работа № 4
- •Практическая работа № 5
- •1 Часть
- •2 Часть
- •3 Часть
- •Практическая работа № 6
- •Практическая работа № 7
- •Практическая работа № 8
- •2 Часть
- •Практическая работа № 9
- •Практическая работа № 9 а
- •Практическая работа № 10
- •Практическая работа № 11
- •На форму Form2 добавить метку, ввести для нее заголовок тригонометрические функции
- •Практическая работа № 12
- •Практическая работа № 13
- •Практическая работа №14
- •Практическая работа № 15
- •1 Часть
- •Управление отображением данных
- •2 Часть
- •3 Часть
- •4 Часть
- •Дополнительные задания
- •Часть 1
- •1) Составьте блок-схему анекдота:
- •2) Составьте блок-схему следующей ситуации:
- •3) Создать тест
- •Проектируем форму
- •Самостоятельно:
- •Параметр Sender. Совершенствуем игру.
- •Компонент Image
- •1 Способ. Подключаем клавиатуру
- •2 Способ. Передать управление кораблю.
- •3 Способ. Сделать игру для двоих...
- •Часть 2
- •Список использованной литературы
Для работы с датами и временем
|
Назначение |
Пример использования |
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) |