topic-22063

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

quiero codificar bien esto...
Posted: Tue Aug 02, 2011 01:33 PM

hola.-

tengo este codigo:

 function ver(cDatos) 
  local vDatos:= sapce(20)
   ...
   ...

  IF (Empty(vdatos))
      vDatos:= NIL
   ENDIF

   RETURN (vDatos)

y la llamada a esta funcion es asi:

Code (fw): Select all Collapse

if ( ver( cVerifica ) )
...
endif

Puedo reducir esas lineas? pricipalmente cuando hago el Return de la funcion.

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: quiero codificar bien esto...
Posted: Tue Aug 02, 2011 02:17 PM

No entiendo muy bien el código que pones .
Si vDatos Esta vacío ya es NIL con lo que todo el bloque if te sobra.

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: quiero codificar bien esto...
Posted: Tue Aug 02, 2011 02:39 PM

hola,

Te recuerdo, y quiza es incesario, que Empty() devuelve .T. si un dato es una cadena vacia o solo blancos o es NIL

Code (fw): Select all Collapse

Version 1.
-----------------
cVer:= Ver()
IF cVer != NIL
   ....
ENDIF

FUNCTION Ver(cDatos)
Local vDatos:= NIL  // No necesaria la asignacion pero si clarificadora de que se usara el valor NIL
....
RETURN vDatos

Version 2.
-------------------
IF Empty(Ver())
   ...
ENDIF

FUNCTION Ver()
....
idem a la anterior 
RETURN vDatos

Saludos

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: quiero codificar bien esto...
Posted: Tue Aug 02, 2011 02:41 PM

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: quiero codificar bien esto...
Posted: Tue Aug 02, 2011 02:41 PM

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion