FileCreate() создает файл и не допускает к нему...

[Дворник]

использую для создания файлов простую операцию FileCreate.
использую в цикле, поскольку необходимо создавать несколько файлов:

вот

for i := 0 to 3 do
begin
FileCreate(WAY + '\Advertisment\' + LEText + '\Base[SG2Col' + IntToStr(i) + '].tml');
end;

все здорово создает, но как только пытаюсь программу получить доступ к только что созданным файлам, выдает ошибку: мол не возможно получить доступ к файлу, поскольку он занят другим процессом?!

как только перезапускаю программу, уже доет доступ к файлу. типа процесса уже нет!

в чем беда ?

[Grag]

Попробуй после создания файла закрыть его, а потом открыть вновь для уже определенной файловой операции...

[evg_m]

по окончании работы с файлом его необходимо закрывать FileClose

handlefile:=filecreate(....);
.....
fileClose(handlefile);

[ex.cluz]

Их позакрывать сначало надо, т.к. функция FileCreate создает новый файл и открывает его для чтения и записи без учета разделяемых ресурсов.

Поэтому лучше через хэндлы:

var

FileHandle, i: Integer;
begin
for i := 0 to 3 do 
  begin
    FileHandle:= FileCreate( WAY + '\Advertisment\' + LEText + '\Base[SG2Col' + IntToStr(i) + '].tml'z');
    FileClose( FileHandle);
  end;

end;

[DIgorevich]

чтобы его закрыть, надо как-то его указывать. Мне думается, что при создании надо присваивать файл какой-либо переменной.

var
  x:file;
Begin
  for i := 0 to 3 do
begin
x:=FileCreate(WAY + '\Advertisment\' + LEText + '\Base[SG2Col' + IntToStr(i) + '].tml');
x.Savetofile(WAY + '\Advertisment\' + LEText + '\Base[SG2Col' + IntToStr(i) + '].tml');
x.free;

end; 
end;

[blazonic]

Беда, похоже, в том, что файлы нужно не только создавать, но ещё и закрывать типа FileClose и похоже в том же цикле, в котором создаёте, если дальше в программе нигде их больше не используете.
Вы далее в программе используете FileClose или каким-либо другим способом закрываете созданные в цикле файлы?

Пардон, пока писал сообщение не обновил страницу и не заметил, что уже насоветовали правильные решения проблемы.
Кстати, вместо x.free подойдёт ещё CloseFile

[GunSmoker]

DIgorevich: ничё, что FileCreate возвращает описатель (дескриптор), а не объект?

[Stilet]

DIgorevich

В какой это версии Делфи у типа file появились свойства и методы?

[ex.cluz]

Товарищи, хватит над соплеменником издеваться , ну сморозил глупость, с кем не бывает?
У нас другая задача - ТС помочь, а не запутать его вконец.

[Stilet]

ex.cluz

Ты будешь удивлен, но я всерьез подумал что в новых делфи тип файла переделали в объект. мало ли...