Как задать множество

[1234]

Здравствуйте.
Подскажите, пожалуйста, как задать множество букв и определить принадлежит к нему элемент массива, или нет

Так можно?
type
M = Set of 'A'..'Z';
var
MS: M;


или так?
var MS: Set of 0..7;

А как выяснить принадлижит ли элемент массива
к этому множеству?

[Greblin]

Можно и так и так.

if a[1] in M then ...

[1234]

Спасибо, попробую так сделать..

[1234]

Ошибку выдает (несовпадение типов!) после then

for i:=0 to m-1 do
if arr[i][1] in ms then begin
 err1:=0;
end
else
err1:=1;
end;

массив у меня из строк, а первый элемент должен быть цифрой от 1 до двух
может результат должен возвращаться true/false?

[Карась]

.....
Const a = ['a'..'z', 'A'..'Z'];
......

for i := 0 to m-1 do  
if arr[i] in a then .....

[1234]

Спасибо болшое!!

[Alter]

...........................................................
Const MS = ['1'..'2'];
...........................................................
for i:=0 to m-1 do  
 CASE arr[i][1] in ms OF  
  True : err1:=0;   
  False: err1:=1;   
 END;

___________________________________ _____________________________
долго необновлял страницу, опередили меня

[1234]

Спасибо!, так еще короче