var
tmptxt : string;
myFile : TextFile; begin
tmptxt := GetCurrentDir;
tmptxt := tmptxt + '\tmp.txt';
if FileExists(tmptxt) then ShowMessage ('Файл есть')
else
begin
AssignFile(myFile, tmptxt);
ReWrite(myFile);
Write(myFile, '');
CloseFile(myFile);
ShowMessage ('Файл создан в текущей директории')
end;
Добавлено (12.12.2007, 10:26)
---------------------------------------------
Это позволит создать файл в текущей директории, если его нет. Можешь оформить в виде отдельной процедуры. tmptxt лучше сделать глобальной переменной, чтоб все другие процедуры и функции видели путь к tmp.txt. Пользуйся.