Доброй ночи! Подскажите пожалуйста, а как отладчик получает текстовое представление элементов множества?
Я объявил перечисление и множество:
1.
2.
3.
4.
5.
6.
7.
8.
type
EMyEnum = (
MyEnumA,
MyEnumB,
MyEnumC
);
TMyEnum = EMyEnum;
TMySet = Set Of TMyEnum;
Я могу получить текстовое представление run-time при помощи RTTI примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
function MySetToText(MySet: TMySet): String;
var MyEnum: TMyEnum;
begin
Result:='[';
for MyEnum in MySet do
begin
if (Result.Length>1) then
Result:=Result+', ';
Result:=Result+GetEnumName(TypeInfo(TMyEnum), Ord(MyEnum));
end;
Result:=Result+']';
end;
procedure TForm1.Button1Click(Sender: TObject);
var S: TMySet;
begin
S:=[MyEnumA, MyEnumC];
ShowMessage(MySetToText(S));
end;
Но если я сделаю так:
1.
2.
3.
4.
5.
EMyEnum = (
MyEnumA = 0,
MyEnumB = 15,
MyEnumC = 30
);
То код перестаёт компилироваться с ошибкой:
[dcc32 Error] : E2134 Type 'TMyEnum' has no type info
И так же GetTypeData(TypeInfo(TMySet)).TypeData.CompType тоже равно nil.
Но при этом отладчик всё равно в Watches показывает переменные типа TMyEnum и TMySet в виде имён.
Как именно он это делает? Могу ли я делать так же run-time? Хотя тут мне больше любопытно, чем для практики...
