Page 1 of 1

Que reemplaza al comando DEFAULT de Clipper

Posted: Tue Dec 18, 2007 5:54 pm
by fespinoza
En mi migraciĆ³n de FW a FWH encuentro que el comando DEFAULT no es soportado por el compilador xHarbour (siempre me saca error donde esta ese comando); es porque no lo soporta y si es asi con que lo puedo reemplazar.

Saludos

Fernando Espinoza

Posted: Tue Dec 18, 2007 6:24 pm
by Biel EA6DD
Si usas el default de clipper, basta incluyas common.ch

Code: Select all

# INCLUDE "common.ch"
o definas el comando.

Code: Select all

#xcommand DEFAULT <v1> TO <x1> [, <vn> TO <xn> ] => ;
                                IF <v1> == NIL ; <v1> := <x1> ; END ;
                                [; IF <vn> == NIL ; <vn> := <xn> ; END ]
Fivewin implementa tambien un comando DEFAULT y no es exactamente igual, para usar el de fivewin, debes incluir fivewin.ch

Code: Select all

# include "common.ch"
DEFAULT cVar TO "Algo"

Code: Select all

# include "FiveWin.ch"
DEFAULT cVar:="Algo"