Удаление содержимого файлов, при запуске программы Опции

[Desktop_4]

Как сделать что бы при запуске программы , содержимое файлов например qwerty.txt и abc.txt удалялось ?

Сообщение отредактировано: Desktop_4 - 30.05.2007 22:37

[hardcase]

Код

var f: TextFile;
begin
AssignFile(f, 'qwerty.txt');
Rewrite(f);
CloseFile(f);