У меня на форме есть Edit1 и Button1
Как сделать, что бы при нажатии на Button1 программа находила по заранее прописанному пути папку (ну скажем ''...\BD''), и просматривала все имена находящихся там файлов. Если имя файла совпадает, с тем именем которое мы вводим в Edit1, то появляется сообщение ('Файл с таким именем уже существует'), а если такого имени нет, то создавался бы файл. Данный алгоритм нужен мне для динамического создания таблиц б.д. Paradox.
Если можно, приведите пожалуйста пример как это описать?

Код

var  filename  : TFileName; begin  filename := 'папка' + 'имя файла';  if  FileExists( filename ) then    ShowMessage ('Файл с таким именем уже существует'); end;

Вот так можно получить имена всех файлов в заданном каталоге, включая подкаталоги (взято из Faq DRKB)

Код

Procedure ScanDir(Dir:string); var SearchRec:TSearchRec; begin if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then   repeat    if (SearchRec.name='.') or (SearchRec.name='..') then continue;    if (SearchRec.Attr and faDirectory)<>0 then    ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"   else    Showmessage(Dir+SearchRec.name); //we found File: "Dir+SearchRec.name"    until FindNext(SearchRec)<>0;    FindClose(SearchRec);   end; procedure TForm1.Button1Click(Sender: TObject); begin ScanDir('c:');   end;

А дальше, как Sharl сказал.
Добавлено @ 13:42

Цитата(Sharl @ 7.2.2005, 14:00)

if  FileExists( filename ) then   ShowMessage ('Файл с таким именем уже существует');

Делай так:

Код

if FileExists(Form1.Edit1.Text) then   ShowMessage ('Файл с таким именем уже существует');

Цитата(Slawanix @ 7.2.2005, 13:40)

Делай так: Код  if FileExists(Form1.Edit1.Text) then   ShowMessage ('Файл с таким именем уже существует');

Тогда уж так:

Код

if FileExists('MyFolder\'+Form1.Edit1.Text) then   ShowMessage ('Файл с таким именем уже существует');

Цитата

Тогда уж так: Код if FileExists('MyFolder\'+Form1.Edit1.Text) then   ShowMessage ('Файл с таким именем уже существует');

Согласен с тобой, но у меня подразумевалось, в Edit1.Text путь к файлу прописан с каталогом

Это сообщение отредактировал(а) Slawanix - 7.2.2005, 15:30

Попробую, посмотрим что получиться

Slawanix
Да я понял, но:

Цитата(User @ 7.2.2005, 12:35)

по заранее прописанному пути папку (ну скажем ''...\BD'')