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

[Desktop_4]

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

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

[hardcase]

Код

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