100jk
(백종규)
|
|
답변 감사드립니다. 다른사이트에서 얻은 방법입니다.
function GetSetNames(v: TValue): TAStringArray;
var
n: integer;
EnumType: PTypeInfo;
begin
result.Clear;
if v.Kind = TTypeKind.tkSet then
begin
EnumType := v.TypeInfo.TypeData.CompType^;
for n := GetTypeData(EnumType).MinValue to GetTypeData(EnumType).MaxValue do
begin
Result.Add(GetEnumName(EnumType, n));
end;
end;
end;
2019-01-08 오후 9:08:52
|
|
