mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
15 lines
253 B
ObjectPascal
15 lines
253 B
ObjectPascal
{$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.
|
|
|