Морока с синтаксисисом

← →
Checist [root] (2005-03-06 17:11) [0]

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

← →
MU © (2005-03-06 17:16) [1]

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

← →
Zeqfreed © (2005-03-06 17:19) [2]

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

← →
Zeqfreed © (2005-03-06 17:23) [3]

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!" не считалось правильным расширением.

← →
Checist [root] (2005-03-06 17:27) [4]

Спасибо!!!

Морока с синтаксисисом Найти похожие ветки