Показать сообщение отдельно
  #2  
Старый 08.09.2011, 13:09
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Только последовательным перебором расширений:
Код:
 ArrExt := VarArrayOf(['txt','doc','htm','prn']);
 for i := 0 to VarArrayHighBound(ArrExt,1)
 do begin
     Path := Format('%s*.%s',[edit1.text,ArrExt[i]]);
     ...
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием