4.14.1.2.Пример:
Var
Fi, fo: Text File;
S: string
begin
system. Assign (fi, ‘IN. TXT’);
system. Assign(fo, ‘OUT. TXT’);
system. Reset(fi);
system. Rewrite(fo);
while eof (fi) begin
system. Read ln(fi; s);
system. Write ln(fo;s);
system. Close(fi);
system. Close(fo);
eof (файл); boolean – возвращает false, если текущий указатель положения не перед концом файла, и возвращает true, если перед концом файла.
4.14.2.3.3.2. Диалоги Open File и Save File.
4.14.2.1.Свойства:
1) Name.
2) Title: string(заголовок окна).
3) File Name: string.
4) Initial Dir: string. (начальная директория, которая будет открыта в диалоговом окне).
5) Filters:
Name |
Filter |
Все файлы |
*. * |
Текстовые файлы |
*. TXT |
Filter Index: integer
Options:
Func …Execute: boolean;
OKK
Cancel
И
True False
Fo D – Name
If fo D. Execute then begin
System. Assign(fi, fo D. File Name);
…
end;
…
4.14.3.3.3.3. Методы доступа к файлам t String.
T
List Box Items
T Combo Box
T Meme
L
b
Res. Items
Save to file (имя файла)
Лекция №11.
4.15.4.12. Работа с датой и временем.
4.15.1.4.12.1. Компонент t Timer.
Служит для производства событий через определенные промежутки времени.
Свойства:
Enabled: boolean (true/ false)(включен таймер или нет).
Interval: long int, (для задания промежутков времени(в миллисекундах)).
Если интервал равен 0, то событие не генерируется.
Методы:
C
reate
На данном уровне ознакомления
с Delphi эти методы будут
автоматически выполняться «владельцем»
таймера (формой).
Free
Событие: On Timer.
Пример:
-
Form 1
Label
Label
Таймер находится на странице System.
Interval: 100
Enabled: true
При создании формы необходимо описать некоторую переменную.
Private
Var
SecCount: longInt
Var
Sec:real
4.15.1.1.Процедура обработки события:
Procedure
SecCount:= SecCount + 1;
Sec:= SecCount/10
Str(sec: 10: 1, s);
LbSec. Caption:=s;
LbTime. Capton:=Time to str(Time).
Переменную SecCount необходимо инициализировать, и лучше всего это сделать в обработчике события On Create для формы.
4.15.2.4.12.2.Работа с датой.
В Object Pascal есть тип данных: T Data Time.
T
ime
Date - функции, возвращающие значения.
Time to str (Time).
Date to str (Date).
Decode Date (dt: T Date Time;
Var Y, M, D: word).
Decode Time (dt: T Date Time;
Var H, M, S, MS: word )
Str to Date (string): T Date Time
Str to Time (. . .)
E Convert Error.
Encode Date (. . .)
из нескольких целых величин собрать дату или время.
Encode Time (. . .)
4.15.3.4.12.3. Функция Sleep.
Sleep (MS: long int) – средствами операционной системы нить приложения переводится в состояние ожидания, но все остальные приложения мультизадачнрй системы продолжают функционировать.
Лекция № 12.
4.16.3.4. Графика.
4.16.1.3.4.1. Основные понятия.
Графика бывает векторная и растровая. Растровая – объектом является точка, векторная – объект – вектор, линия с какими – то координатами.
В графике среды программирования Delphi используется координатная ось, совпадающая с экраном монитора.
Верхний левый угол – начало координат, а остальные координаты высчитываются в зависимости от разрешающей способности монитора.
Для создания изображения в Delphi используется объект типа T Canvas (т. е. Холст, на котором можно рисовать). Этот объект сам по себе существовать не может, только совместно с изображением. Таким образом, если мы создаем форму, она имеет свойство Canvas; это свойство имеет объект типа T Canvas, который обладает методами для создания изображений.