Розробка програм з використанням модуля CRT

Приклад 1.

Приклад обробки функціональних клавіш.

program pr;

uses crt;

var

ch: char;

begin

while keypressed do ch:= readkey;

writeln (‘натисніть функціональну клавішу’);

repeat

ch:=readkey;

if ch = #0

then

ch: redkey;

until ch in {#59....#68};

case ch of

# 59: .........

# 60: .........

end;

end.

Модуль DOS

Модуль призначається для роботи з таймером, файлами та папками.

FSearch (<ім¢я файлу>,<перелік каталогів, де необхідно шукати файл >); - функція, використовується для перевірки наявності вказаного файлу. Функція повертає значення строкового типу, а саме повне ім¢я знайденого файлу. Якщо файл не знайдено - функція повертає пустий рядок. Перелік каталогів розділяється символом „;”. Якщо пошук повинен здійснюватись у поточному каталозі, то вказується пустий рядок. Наприклад,

If FSearch (‘MyFile.txt’,’’)<>’’ then

<опратори, що виконуються якщо файл знайдено>

else ... ;

GETDATE (<рік>, <місяць>, <число>, <день>); - зчитування системної дати.

SETDATE (<рік>, <місяць>, <число>); - встановлює поточну дату.

GETTIME (<час>, <хвилина>, <сек>, <мл сек>); - зчитування поточного часу

SETTIME (<час>, <хвилина>, <сек>, <мл сек>); - встановлює поточний час.