Hola Amigo Estoy trabajando en las opciones de permiso pra mis programas el asunto es siguiente.
de la manera larga me funciona pero hace mas grande mi codigo.
El asunto es que necesito hacer esto un poco mejor y opte por utilizar las sentencia for
Código Delphi
[-] with qry_permisos do
begin
Active := true;
first; for x:= 3 to FieldCount - 1 do begin campo := Fields.Fields[x].DisplayName;
for y := 0 to fmenuprincipal.ActionManager1.ActionCount - 1 do
begin with fmenuprincipal.ActionManager1.Actions[y] do
if index = x-3 then
if FieldByName(campo).AsBoolean = false then
enabled := false;
end;
end;
end;
la cosa es que con el for no me esta desabilitando los actions
por favor ayudenme con esto. gracias de antemano