Найти файл без расширения

[Shouldercannon]

Так я делаю проверку фаил или папка

  if ExtractFileExt(Edit1.Text) = '' then
  // Папка
  begin
    // Проверка на существование папки по указанному пути
    if DirectoryExists(Edit1.Text) then
    begin
      ShowMessage('Папка "' + ExtractFileName(Edit1.Text) + '" по адресу "' + ExtractFilePath(Edit1.Text) + '" имеет атрибут "' + IntToStr(FileGetAttr(Edit1.Text)) + '"');
    end
    else ShowMessage('Папка "' + ExtractFileName(Edit1.Text) + '" по адресу "' + ExtractFilePath(Edit1.Text) + '" не найдена"');
  end
  else
  // Файл
  begin
    if FileExists(Edit1.Text) then ShowMessage('Файл "' + ExtractFileName(Edit1.Text) + '" по адресу "' + ExtractFilePath(Edit1.Text) + '" имеет атрибут "' + IntToStr(FileGetAttr(Edit1.Text)) + '"')
    else ShowMessage('Файл "' + ExtractFileName(Edit1.Text) + '" по адресу "' + ExtractFilePath(Edit1.Text) + '" не найден');
  end;

Но если файл без расширения, то уже не знаю как выполнить проврку в этом случае

[Аватар]

Если расширения нет то последние четыре строчки кода никогда работать не будут, вывод - для этого случае код не пригоден
Следовательно в первом блоке если каталог не найден нужно попытаться файл найти. Информация к размішлению - имя каталога тоже может быть с точкой, т.е. существует расширение

[Serge_Bliznykov]

и правильно не работает.
я Вам больше скажу.
Создайте папку с именем, например, "MyDoc.OLD"
и она определится как файл.

в файловой системе есть специальный атрибут (в Дельфи константа faDirectory).
поэтому, определить, папка или файл можно так
(взято из JEDI - файл JclFileUtils.pas ):

function IsDirectory(const FileName: string): Boolean;
var
  R: DWORD;
begin
  R := GetFileAttributes(PChar(FileName));
  Result := (R <> DWORD(-1)) and ((R and FILE_ATTRIBUTE_DIRECTORY) <> 0);
end;

пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsDirectory(edit1.Text)
   then Form1.Caption := 'Это папка'
   else if FileExists(edit1.Text)
          then Form1.Caption := 'Это файл'
          else Form1.Caption := 'Такого вообще нет!';
end;