упростить выражение

← →
Gadenysh (2006-08-23 17:14) [0]

Result := (TypeID = 1) or (TypeID = 2) or (TypeID = 3) or (TypeID = 5) or (TypeID = 7)

можно ли записать короче? типа как в sql - in (1,2,3,5,7)

← →
novill © (2006-08-23 17:17) [1]

да, так и записать TypeID in [1,2,3,5,7]

← →
Германн © (2006-08-23 17:19) [2]

Можно, но только если значение TypeID в диапазоне 0..255

← →
Gadenysh (2006-08-23 17:25) [3]

> Германн © (23.08.06 17:19) [2]
> Можно, но только если значение TypeID в диапазоне 0..255

т.е., если числа больше, то не выйдет?

← →
Германн © (2006-08-23 17:27) [4]

> т.е., если числа больше, то не выйдет?

Угу. Читать в справке про тип Set

← →
Gadenysh (2006-08-23 17:30) [5]

спасибо

var TypeID : integer;
begin
Result := (TypeID >= 1) and (TypeID <= 7);
Result := Result and (TypeID <> 4) and (TypeID <> 6)

case TypeID of 1,2,3,5,7: Result := True; else Result := False; end;