| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как при сохранении файла проверить наличие файла с этим же именем [D6, WinXP]
Jus © (2004-09-30 00:33:00)Я например сохраняю файл
var i:integer;
AssignFile(saves,'save'+IntToStr(i)+'.txt');
Rewrite(Save);
Write(Save,{не важно});
CloseFile(Save);
А как мне сделать, чтоб программа сначало проверила, есть ли уже файл 'save0.txt'?
Если такой файл уже есть то i:=i+1, ну вы надеюсь поняли о чём я?
Jus (2004-09-30 00:53:00) [1]
> GanibalLector © (30.09.04 00:48) [3]
> Не успел...
Эхх...:)
> Defunct © (30.09.04 00:48) [1]
> GanibalLector © (30.09.04 00:48) [2]
Спасибо!
Defunct (2004-09-30 00:48:00) [2]if FilesExists(<имя файла>) tnen I:=I+1;
GanibalLector (2004-09-30 00:48:00) [3]if FileExists(FileName) then ...
GanibalLector (2004-09-30 00:48:00) [4]Не успел...
| |
