[Adrenalin666]

простой вопрос но как очистить файл...

[v1s2222]

Можно например так:

Код:

1 2 3 4 5 6 7

var   F: TextFile; begin ...   AssignFile(F, 'C:\1.txt');   ReWrite(F);   CloseFile(F);

Ну или если это не нравится, то можно удалить старый файл (DeleteFile(...)), а потом создать новый функцией CreateFile.