Hola Bruno o alguien que me pueda dar alguna idea:
En Clipper para no declarar las variables, las podiamos extraer directamente de la Base de Datos, con la siguiente función:

Procedure inic_var
A=Fcount()
For I=1 To A
If Type(Field(I))<>'m'
Nomecampo=Field(I)
Nomevar='m'+Nomecampo
Public &Nomevar
Do Case
Case Type(field(I))='c'
&nomevar=Space(Len(&Nomecampo))
Case Type(Field(I))='n'
&nomevar=0
Case Type(Field(I))='d'
&nomevar=Ctd('''')
Case Type(Field(I))='L'
&Nomevar=.f.
Endcase
Endif
Next

Pues bien yo estoy tratando de acoplarlo a C3 y su IDE, pero no logro hacerlo funcionar, si alguien tiene alguna idea de como hacerlo, para que funcione como en Clipper, le agradeceria que la expusiese.

Un saludo y gracias a todos de antemano.

Fraguibo

Disculpame, fijate a mi me funciono es casi igual a lo que expusiste en el foro, pero miralo, si hay alguna otra cosita comentamela, yo trabajo bastante con contenido de variables

_________________
Gracias y un abrazo

Hola Boris;
Como habras visto en el foro, estoy escribiendo un nuevo "Tutorial para C3 y su IDE", pues bien repasando y comprovando, gran parte de las consultas expuestas a qui en el foro, he llegado a esta que puse yo mismo, a la que tu me pusiste un ejemplo, el cual modificandolo un poquito me funciono de maravilla.

Ahora despues de unas practicas, he realizado el mismo ejemplo, que hace lo mismo y muestra los mismos resultados, pero con 14 lineas de codigo menos, que el ejemplo original.

Aqui dejo el metodo por si te interesa, o si alguno de los compañeros del foro le puede ser de utilidad.

/*
* Evento OnClick.
*/
METHOD Button1OnClick( oSender ) CLASS TForm1

Local I, Nomvar
Use Clientes
Go Top
Skip-1
For I=1 To FCount()
Nomvar=Fieldname(I)
::Button1:Caption:=Nomvar
?&Nomvar
Next
Close

return

Si por casualidad guardas alguno, de los primeros ejemplos, que Bruno incluyo en los principios de la versió 1.0 y me los quieres pasar, pues te lo agradeceria.

Recibe un cordial Saludo.

Fraguibo