совместимостьтипа множества и string

[ganz]

День добрый ! Подскажите как совместить созданный тип множества со строкой?

[ganz]

TfmExample.bbRunClick(Sender: TObject);
const s1=[0..47];
type
TInt = 0..47;
TSet = set of TInt;
T1=ShortInt;
function NewSet(const s: TSet): TSet;
var i: Integer;
begin
Result := [];
for i := 0 to 47 do
if (i in s) and boolean(Random(2)) then
Include(Result, i);
end;
var
m,a:array[1..255] of integer;p,i,k:integer; ss:string; x:TSet;y:ShortInt;
begin ss:=''; mmOutput.Lines.Clear;
x:= (NewSet(s1));
ss:=inttostr(x[i]); {делфи матом ругается [Error] Unit_Random_set.pas(50): Array type requiredprocedure }
mmOutput.Lines.Add(ss);
end;
end.

[Utkin]

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

День добрый ! Подскажите как совместить созданный тип множества со строкой?

Никак, но можно перенести элементы множества символов в строку. С другой стороны можно рассматривать строку как некое множество символов (функции и процедуры нужно писать самому).

[ganz]

а можно какой нить примерчик переноса элементов символов в строку плиз!