| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Морока с синтаксисисом [D7, WinXP]

Checist [root] ©   (2005-03-06 17:11:00) 

Я пытаюсь
if (VFileExt in ['.jpg', '.gif', '.bmp']) then
Как правильно написать проверку вхождения расш. в список (он намного более чем здесь указано)
Через if (..) or (..) or (..) - слишком громоздко.

---

Checist [root]   (2005-03-06 17:27:00) [1]

Спасибо!!!

---

Zeqfreed   (2005-03-06 17:23:00) [2]

Zeqfreed ©   (06.03.05 17:19) [2]

function ValidExtension(const ext : String) : boolean;
const
valid_ext : String = '.jpg /.bmp /.gif';
begin
Result := (Pos(ext, valid_ext) <> 0);
end;

Лучше так, чтобы '.jpg!' не считалось правильным расширением.

---

Zeqfreed   (2005-03-06 17:19:00) [3]

function ValidExtension(const ext : String) : boolean;
const
valid_ext : String = '.jpg!.bmp!.gif';
begin
Result := (Pos(ext, valid_ext) <> 0);
end;

---

MU   (2005-03-06 17:16:00) [4]

if pos(VFileExt, '.jpg;.gif;.bmp') > 0 then
 ....

---

Наверх