Buenas tengan amigos foristas.
Espero esten todos bien y que me puedan dar una manita sobre esto.
ya he buscado en google y en el foro y algunos libros de delphi que poseo
(la bilia de delphi 5,6). Este es un ejemplo para no alargar las cosas
Tengo una tabla que contiene 5 campo
Código:
Consulta1
Consulta2
consulta3
consulta4
consulta5
todos son integer default 0
Tengo un programa que posee un mainmenu cuyos items los he nombrado igual que mis campos en la tabla
Código:
mainmenu.consulta1
mainmenu.consulta2
mainmenu.consulta3
mainmenu.consulta4
mainmenu.consulta5
lo que intento hacer es leer todos los campos
en la tabla y si el valor es 0 habilitar esta
opcion del menu, y si es 1 desabilitarla.
Código Delphi
[-]
accesos.Open;
for x:=0 to Accesos.FieldCount - 1 do
Begin
str1 := Accesos.Fields[x].FieldName;
if Accesos.fieldbyname(str1).value = 0 then
with MenuStandard.Items do
begin
name := str1;
visible := true;
end
else
with MenuStandard.Items do
begin
name := str1;
visible := false;
end;
end;
Accesos.close;
este proceso me aplica bien el if, osea realmente logro examinar el valor del nombre del campo. Lo que no logro es asignar el valor true o false a los items del mainmenu Espero por favor su cordial ayuda