Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > проверка расширения при открытии

Автор: Михалыч 20.9.2009, 21:01

Как можно проверять при открытии файла ,какое расширение имеет файл.
Нужно примерно так, на главной форме через opendialog открываем файлы,
если открывается с расширением txt ,то открываем form2 ,а если с расширением ini , то открываем form3

Автор: AntonN 20.9.2009, 21:12

в модуле sysutils есть функция extractfileext() которая вернет тебе расширение с точкой

Автор: Louken 20.9.2009, 21:15

Код


procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  if OpenDialog1.Execute then begin
    s := UpperCase(ExtractFileExt(OpenDialog1.FileName));
    if s = '.TXT' then begin
      Form2.ShowModal;
    end else
    if s = '.INI' then begin
      Form3.ShowModal;
    end else begin
      // что то еще, если нужно
    end;
  end;
end;

Автор: Михалыч 20.9.2009, 21:26

Всем спасибо! Louken+