Вот хороший рабочий пример создания/открытия файла
Код:
begin
AssignFile (File, FileName);//Связать переменныю и файл
{$I-}
try
Reset (File);//открыть для чтения, append(File) если текстовый файл
...
{$I+}
if IOResult <> 0 then//если нет файла
Rewrite (File);//создать файл
...
finally
Close (File);
end;
end; |