ERROR DE PARAMETROS EN MEMOEDIT
Publicado por antonio (2 intervenciones) el 18/06/2006 16:49:51
Hola a todos:
A ver alguien me puede ayudar, con las dos primeras lineas de memoedit me da error de ejecucion, error de parametros y con la tercera linea de memoedit funciona pero no me admite la funcion.
procedure memore
set cursor on
@ 9, 0 to 21, 79 double
@ 22, 0 say '(CTRL + Y) Borra linea -- (CTRL + T) Borra palabra -- (CTRL + G) Borra caracter '
@ 23, 0 say '(CRT + W) para Grabar -- ( F5 ) Imprimir --( ESC ) Abandona cambios '
do bloquea
replace texto with memoedit (texto, 10, 1, 20, 78, .T.,"CASCOS", 79, '', '', '', '', 10, 1) && con esta da error de parametros en ejecucion
replace texto with memoedit (texto, 10, 1, 20, 78, .T.,"CASCOS") &&con esta da error de parametros en ejecucion
replace texto with memoedit (texto, 10, 1, 20, 78, .T.) && con esta si va bien pero sin la funcion
unlock
return
***************
function CASCOS()
parameters modo, fil, col
if modo = 0
clear gets
@ 8, 5 say 'LINEA: ' get fil picture '999'
@ 8, 25 say 'COLUMNA: ' get col picture '99'
clear gets
return 0
endif
if lastkey () = -4
save screen to w_p1
set console off
set print on
? texto
set print off
set console on
restore screen from w_p1
endif
RETURN ""
******************
gracias
A ver alguien me puede ayudar, con las dos primeras lineas de memoedit me da error de ejecucion, error de parametros y con la tercera linea de memoedit funciona pero no me admite la funcion.
procedure memore
set cursor on
@ 9, 0 to 21, 79 double
@ 22, 0 say '(CTRL + Y) Borra linea -- (CTRL + T) Borra palabra -- (CTRL + G) Borra caracter '
@ 23, 0 say '(CRT + W) para Grabar -- ( F5 ) Imprimir --( ESC ) Abandona cambios '
do bloquea
replace texto with memoedit (texto, 10, 1, 20, 78, .T.,"CASCOS", 79, '', '', '', '', 10, 1) && con esta da error de parametros en ejecucion
replace texto with memoedit (texto, 10, 1, 20, 78, .T.,"CASCOS") &&con esta da error de parametros en ejecucion
replace texto with memoedit (texto, 10, 1, 20, 78, .T.) && con esta si va bien pero sin la funcion
unlock
return
***************
function CASCOS()
parameters modo, fil, col
if modo = 0
clear gets
@ 8, 5 say 'LINEA: ' get fil picture '999'
@ 8, 25 say 'COLUMNA: ' get col picture '99'
clear gets
return 0
endif
if lastkey () = -4
save screen to w_p1
set console off
set print on
? texto
set print off
set console on
restore screen from w_p1
endif
RETURN ""
******************
gracias
Valora esta pregunta
0