{$I-}
AssignFile(myFile, 'Test.txt');
if FileExists('C:\Documents and Settings\Àäìèíèñòðàòîð\Ðàáî÷èé ñòîë\ÀÂÒÎ_3\Test.txt')
then
Reset(myFile);
else
ReWrite(myFile);
WriteLn(myFile, 'Ïðîåçä íà êðàñíûé ñèãíàë ñâåòîôîðà');
CloseFile(myFile);
{$I+}
у меня так вот прописано и как я понимаю это значит если такой то файл существует то Reset иначе Rewrite...а дальше идет запись.
|