Как при сохранении файла проверить наличие файла с этим же именем

← →
Jus (2004-09-30 00:33) [0]

Я например сохраняю файл
var i:integer;
AssignFile(saves,"save"+IntToStr(i)+".txt");
Rewrite(Save);
Write(Save,{не важно});
CloseFile(Save);

А как мне сделать, чтоб программа сначало проверила, есть ли уже файл "save0.txt"?
Если такой файл уже есть то i:=i+1, ну вы надеюсь поняли о чём я?

← →
Defunct © (2004-09-30 00:48) [1]

if FilesExists(<имя файла>) tnen I:=I+1;

← →
GanibalLector © (2004-09-30 00:48) [2]

if FileExists(FileName) then ...

← →
GanibalLector © (2004-09-30 00:48) [3]

Не успел...

← →
Jus (2004-09-30 00:53) [4]

> GanibalLector © (30.09.04 00:48) [3]
> Не успел...

Эхх...:)

> Defunct © (30.09.04 00:48) [1]

> GanibalLector © (30.09.04 00:48) [2]

Спасибо!

Как при сохранении файла проверить наличие файла с этим же именем Найти похожие ветки