Xailer & OZ Software

Muy buenas;
Me he puesto ya las pilas con el Xailer y estoy convirtiendo las utilidades
que durante años les he ido haciendo a mis clientes en MS-DOS, me parecio la
mejor idea empezar por ellas ya que son herramientas independientes y de
pequeño tamaño, lo que me permitira experimentar con muchas cosas sin
meterme en un gran proyecto.
La primera de las utilidades que he convertido (a medias, me falta el acceso
a la base datos) es un arqueo de caja, esta funcionando pero creo que se
podria optimizar aun mas el codigo si pudiera agrupar varios objetos TEdit
en uma matriz o algo parecido, lo he intentado pero al no aparecer nada de
esto en la ayuda he dado muchos palos de ciego.
Si hay alguna manera de hacer esto les agradeceria la ayuda.
Saludos
Pedro Amaro

Pedro,
> La primera de las utilidades que he convertido (a medias, me falta el
> acceso
> a la base datos) es un arqueo de caja, esta funcionando pero creo que se
> podria optimizar aun mas el codigo si pudiera agrupar varios objetos TEdit
> en uma matriz o algo parecido, lo he intentado pero al no aparecer nada de
> esto en la ayuda he dado muchos palos de ciego.
Supongo que lo que quieres es tener una matriz con varios controles para
poder cambiar alguna propiedad en bloque con AEval(). Lo más sencillo es que
crees una DATA para la matriz en la misma clase del formulario, y después,
en el evento OnInitialize, asignas la matriz con los controles que
necesites. Sería algo así:
CLASS TForm1 FROM TForm
....
DATA aEdits
END
METHOD FormInitialize( oSender ) CLASS TForm1
::aEdits := { ::oMaskEdit1, ::oMaskEdit2, ::oMaskEdit3 }
RETURN Nil
Y después, cuando necesites p.ej. poner a cero los tres edits:
AEval( ::aEdits, {| oEdit | oEdit:Value := 0 } )
--
Un saludo,
José F. Giménez