Home

Page 88
Page 88
background image

Система 81

 файл ;

procedure

f:

windir: array [0..255] of char;

begin

//Получаем директорию, где живет Windows

 255);

//Соединяемся с log-файлом

 Filedir);

//Если

 не существовал, то создаем

if not

 then

begin

//Создаем и сразу закрываем файл

CloseFile(f);

end;

//Открываем файл

//Записываем строку

Writeln(f, str);

//Закрываем log-файл

end;

Как видите, в этой процедуре собрано все необходимое для работы с фай-

лом журнала. Теперь вы можете уменьшить весь код, который мы написали

выше (листинги 3.4—3.5). Например, код, который выполняется при актива-
ции окна, сокращается до следующего:

//Окно стало активным

begin


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.