Gdje fulam s setom pobrojanih vrijednosti ?Radim neki sustav privilegija, manje bitno...
Uglavnom, planiram enumerated vrijednosti seta utrpati u string, a string nekamo zapisati (npr, u bazu) i obrnuto. To nije problem, problem je što mi compiler stalno javlja grešku [Error] Project2.dpr(23): Type 'TOvlast' has no type info bez obzira na direktivu {$M+}. Gdje griješim?
Primjer:
Code:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, TypInfo;
{$TYPEINFO ON}
type
TOvlast = (acces=1,read,add,edit,delete,print,exec,special,modedit);
{$TYPEINFO OFF}
Tdozvola = set of Tovlast;
var
myperm : Tdozvola;
br : integer;
begin
myperm := [acces,edit,print,exec];
myperm := myperm + [read];
for br := ord(low(TOvlast)) to ord(high(TOvlast)) do
if Tovlast(br) in myperm then writeln (inttostr(br) + GetEnumName(TypeInfo(Tovlast),br)' je u nizu');
readln;
end.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, TypInfo;
{$TYPEINFO ON}
type
TOvlast = (acces=1,read,add,edit,delete,print,exec,special,modedit);
{$TYPEINFO OFF}
Tdozvola = set of Tovlast;
var
myperm : Tdozvola;
br : integer;
begin
myperm := [acces,edit,print,exec];
myperm := myperm + [read];
for br := ord(low(TOvlast)) to ord(high(TOvlast)) do
if Tovlast(br) in myperm then writeln (inttostr(br) + GetEnumName(TypeInfo(Tovlast),br)' je u nizu');
readln;
end.
EDIT (savkic): Koristi code tagove prilikom slanja koda, lakše se prati.
[Ovu poruku je menjao savkic dana 03.03.2009. u 15:13 GMT+1]
God is real unless is declared as integer.
