mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-16 00:42:32 +02:00
28 lines
627 B
ObjectPascal
28 lines
627 B
ObjectPascal
program example8;
|
|
|
|
{ This program demonstrates the SetToString function }
|
|
|
|
{$mode objfpc}
|
|
|
|
uses rttiobj,typinfo;
|
|
|
|
Var
|
|
O : TMyTestObject;
|
|
PI : PPropInfo;
|
|
|
|
Const
|
|
ConstSet = 'mefirst,methird';
|
|
|
|
Var
|
|
S : TMyEnums;
|
|
|
|
begin
|
|
O:=TMyTestObject.Create;
|
|
O.SetField:=[mefirst,meSecond,meThird];
|
|
PI:=GetPropInfo(O,'SetField');
|
|
Writeln('SetToString (brackets) : ',SetToString(Pi,Integer(O.SetField),True));
|
|
Writeln('SetToString (default) : ',SetToString(Pi,Integer(O.SetField)));
|
|
O.SetField:=TMyEnums(StringToSet(PI,ConstSet));
|
|
Writeln('Stringtoset : ',SetToString(PI,Integer(O.SetField)));
|
|
O.Free;
|
|
end. |