blob: afb52d926838c20315f4d4fdefba120a0b5fc5f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{$mode objfpc}
{$h+}
uses
TypInfo;
type
Enum = (a, b, c);
var
S : string;
begin
S := 'Text';
S := S + 'xyz' + GetEnumName(TypeInfo(Enum), 1); // This line generate error
S := 'xyz' + GetEnumName(TypeInfo(Enum), 1); // This line is OK!
end.
|
