Ayuda con sentencias for

[escorpionrojo43]

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.
// Qry_Permisos.Active := true;
// if Qry_Permisos.FieldByName('OP1').AsBoolean = false then
// fmenuprincipal.Action1.Enabled := false;
// if Qry_Permisos.FieldByName('OP2').AsBoolean = false then
// fmenuprincipal.Action2.Enabled := false;
// if Qry_Permisos.FieldByName('OP3').AsBoolean = false then
// fmenuprincipal.Action3.Enabled := false;
// if Qry_Permisos.FieldByName('OP4').AsBoolean = false then
// fmenuprincipal.Action4.Enabled := false;
// if Qry_Permisos.FieldByName('OP5').AsBoolean = false then
// fmenuprincipal.Action5.Enabled := false;
// if Qry_Permisos.FieldByName('OP6').AsBoolean = false then
// fmenuprincipal.Action6.Enabled := false;
// if Qry_Permisos.FieldByName('OP7').AsBoolean = false then
// fmenuprincipal.Action7.Enabled := false;
// if Qry_Permisos.FieldByName('OP8').AsBoolean = false then
// fmenuprincipal.Action8.Enabled := false;
// if Qry_Permisos.FieldByName('OP9').AsBoolean = false then
// fmenuprincipal.Action9.Enabled := false;
// if Qry_Permisos.FieldByName('OP10').AsBoolean = false then
// fmenuprincipal.Action10.Enabled := false;
// if Qry_Permisos.FieldByName('OP11').AsBoolean = false then
// fmenuprincipal.Action11.Enabled := false;
// if Qry_Permisos.FieldByName('OP12').AsBoolean = false then
// fmenuprincipal.Action12.Enabled := false;
// if Qry_Permisos.FieldByName('OP13').AsBoolean = false then
// fmenuprincipal.Action13.Enabled := false;
// if Qry_Permisos.FieldByName('OP14').AsBoolean = false then
// fmenuprincipal.Action14.Enabled := false;
// if Qry_Permisos.FieldByName('OP15').AsBoolean = false then
// fmenuprincipal.Action15.Enabled := false;
// if Qry_Permisos.FieldByName('OP16').AsBoolean = false then
// fmenuprincipal.Action16.Enabled := false;
// if Qry_Permisos.FieldByName('OP17').AsBoolean = false then
// fmenuprincipal.Action17.Enabled := false;
// if Qry_Permisos.FieldByName('OP18').AsBoolean = false then
// fmenuprincipal.Action18.Enabled := false;
// if Qry_Permisos.FieldByName('OP19').AsBoolean = false then
// fmenuprincipal.Action19.Enabled := false;
// if Qry_Permisos.FieldByName('OP20').AsBoolean = false then
// fmenuprincipal.Action20.Enabled := false;
end


El asunto es que necesito hacer esto un poco mejor y opte por utilizar las sentencia for

with qry_permisos do
begin
Active := true;
first; // x = 3 porque los primeros cuatro campo no son de las opciones mas bien son la llave
for x:= 3 to FieldCount - 1 do begin //muestra el nombre del campo
campo := Fields.Fields[x].DisplayName;
for y := 0 to fmenuprincipal.ActionManager1.ActionCount - 1 do
begin //muestra el nombre del actions
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

[duilioisola]

// Qry_Permisos.Active := true;
// if Qry_Permisos.FieldByName('OP1').AsBoolean = false then
// fmenuprincipal.Action1.Enabled := false;
// if Qry_Permisos.FieldByName('OP2').AsBoolean = false then
// fmenuprincipal.Action2.Enabled := false;
// if Qry_Permisos.FieldByName('OP3').AsBoolean = false then
// fmenuprincipal.Action3.Enabled := false;
// if Qry_Permisos.FieldByName('OP4').AsBoolean = false then
// fmenuprincipal.Action4.Enabled := false;
// if Qry_Permisos.FieldByName('OP5').AsBoolean = false then
// fmenuprincipal.Action5.Enabled := false;
// if Qry_Permisos.FieldByName('OP6').AsBoolean = false then
// fmenuprincipal.Action6.Enabled := false;
// if Qry_Permisos.FieldByName('OP7').AsBoolean = false then
// fmenuprincipal.Action7.Enabled := false;
// if Qry_Permisos.FieldByName('OP8').AsBoolean = false then
// fmenuprincipal.Action8.Enabled := false;
// if Qry_Permisos.FieldByName('OP9').AsBoolean = false then
// fmenuprincipal.Action9.Enabled := false;
// if Qry_Permisos.FieldByName('OP10').AsBoolean = false then
// fmenuprincipal.Action10.Enabled := false;
// if Qry_Permisos.FieldByName('OP11').AsBoolean = false then
// fmenuprincipal.Action11.Enabled := false;
// if Qry_Permisos.FieldByName('OP12').AsBoolean = false then
// fmenuprincipal.Action12.Enabled := false;
// if Qry_Permisos.FieldByName('OP13').AsBoolean = false then
// fmenuprincipal.Action13.Enabled := false;
// if Qry_Permisos.FieldByName('OP14').AsBoolean = false then
// fmenuprincipal.Action14.Enabled := false;
// if Qry_Permisos.FieldByName('OP15').AsBoolean = false then
// fmenuprincipal.Action15.Enabled := false;
// if Qry_Permisos.FieldByName('OP16').AsBoolean = false then
// fmenuprincipal.Action16.Enabled := false;
// if Qry_Permisos.FieldByName('OP17').AsBoolean = false then
// fmenuprincipal.Action17.Enabled := false;
// if Qry_Permisos.FieldByName('OP18').AsBoolean = false then
// fmenuprincipal.Action18.Enabled := false;
// if Qry_Permisos.FieldByName('OP19').AsBoolean = false then
// fmenuprincipal.Action19.Enabled := false;
// if Qry_Permisos.FieldByName('OP20').AsBoolean = false then
// fmenuprincipal.Action20.Enabled := false;



with qry_permisos do
begin
Active := true;
first;
// x = 3 porque los primeros cuatro campo no son de las opciones mas bien son la llave
for x := 3 to FieldCount - 1 do
begin
// muestra el nombre del campo
campo := Fields.Fields[x].DisplayName;
for y := 0 to fmenuprincipal.ActionManager1.ActionCount - 1 do
begin
// muestra el nombre del actions
with fmenuprincipal.ActionManager1.Actions[y] do
if index = x-3 then
if FieldByName(campo).AsBoolean = false then
enabled := false;
end;
end;
end;


El Index de la propiedad Actions[y] solo te da la posición dentro de la lista de acciones.
Supongo que deberías utilizar un método que te asegure que estás habilitando o deshabilitado la accion que quieres.
Por ejemplo, podrías utilizar su nombre o utilizar la propiedad Tag.

Yo en tu caso utilizaría algo así:


...
// muestra el nombre del actions
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TAction then
begin
// Si el componente que busco se llama Action"nnn"
// En realidad debería llamarse igual que en numero despues del nombre del campo OP"nnn"
if (TAction(Components[i]).Name = 'Action' + IntToStr(x)) then
TAction(Components[i]).Enabled := FieldByName(campo).AsBoolean;
end;
end;
...

[escorpionrojo43]

Hermano gracias por tu respuesta.
El asunto con eso es que Cuando utilizo (TAction) desde el form principal no hay problemas pero cuando lo uso en form del login me dice
[DCC Error] ULogin.pas(91): E2003 Undeclared identifier: 'TAction'

no se supone que tome la declaracion del mismo form principal?

[duilioisola]

Eso debe ser porque no tienes declarado en el Uses la unit que corresponde al TAction.
En el editor pon el cursor sobre la palabra TAction, presiona F1 y mira cual es la unit a la que pertenece.