Конструкция case of работает некорректно! Как исправить?

[SkAndrew]

Добрый день!

Вот конструкция кода:

type
TSampleType = (stX, stY, stZ);
TSampleTypes = set of TSampleType;

private
FstX; FstY; FstZ : String;
FSampleType : TSampleTypes;

procedure Form1.Create(Sender : TObject);
begin
FSampleType := [stX];
...............................
end;

function GetInfoAboutSampleType() : String;
begin
case Integer(FSampleType) of // компилятор выдает ошибку здесь, когда заменяю Integer(FSampleType) на Byte(FSampleType) ошибки нет
0 : Result := FstX;
1 : Result := FstY;
2 : Result := FstZ;
0, 1 : Result := FstX + FstY; // компилятор выдает ошибку здесь
0, 2 : Result := FstX + FstZ; // компилятор выдает ошибку здесь
1, 2 : Result := FstY + FstZ; // компилятор выдает ошибку здесь
else Result := FstX + FstY + FstZ;
end;
end;
Как исправить, чтобы код работал корректно?
Все спасибо!

[puporev]

Тип множество не может быть более 255 элементов, поэтому byte подходит, а integer или скажем Word не подойдут.
Кроме того один и тот же указатель не может указывать на разные команды (0,1,2 у вас по два раза).

[SkAndrew]

Спасибо за ответ, но как тогда прописать строки иначе:
0, 1 : Result := FstX + FstY; // компилятор выдает ошибку здесь
0, 2 : Result := FstX + FstZ; // компилятор выдает ошибку здесь
1, 2 : Result := FstY + FstZ; // компилятор выдает ошибку здесь
мне нужно именно такие значения Result?
Спасибо!

[Jeni]

Во-первых, строку FstX; FstY; FstZ : String; нужно записать правильно, используя запятые FstX, FstY, FstZ : String;

Во-вторых, раз уж идет работа с множествами, так нужно использовать команды множеств, а не перечислений. Например, так:

Result := '';
if stX in FSampleType then Result := Result + FstX;
if stY in FSampleType then Result := Result + FstY;
if stZ in FSampleType then Result := Result + FstZ;

[SkAndrew]

Спасибо за ответ, но возможно ли при конструкции в последнем ответе получить возможные варианты для предложенной к обсуждению мной функции?

[Jeni]

Сообщение от SkAndrew

Спасибо за ответ, но возможно ли при конструкции в последнем ответе получить возможные варианты для предложенной к обсуждению мной функции?

Честно говоря, не уверен, что полностью уловил смысл этой фразы. Могу только сказать, что тот код, который я привел, выдаст любой вариант сочетаний строк в зависимости от значения FSampleType - от пустой строки до суммы всех трех строк FstX, FstY и FstZ.

[SkAndrew]

Спасибо я все пронял!