From c0f84601f6c879e547a6cf2ead778074a679c400 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Sun, 23 Nov 2014 17:40:49 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=20516=20fdbozzo=20-=2023/11/2014=201?= =?UTF-8?q?7:37:54:=20-=20Optimizaci=C3=B3n=20en=20m=C3=A9todo=20"write=5F?= =?UTF-8?q?CLASS=5FPROPERTIES"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- foxbin2prg.prg | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 2dec675..9bccdae 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -10022,17 +10022,19 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base .write_PROTECTED_Properties( @lcProtectedProp, @tcCodigo ) *-- Escribo las propiedades de la clase y sus comentarios (los comentarios aquí son redundantes) - FOR I = 1 TO ALEN(taPropsAndValues, 1) + FOR I = 1 TO tnPropsAndValues_Count TEXT TO tcCodigo ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 <<>> <> = <> ENDTEXT - lnComment = ASCAN( taPropsAndComments, taPropsAndValues(I,1), 1, 0, 1, 1+2+4+8) + IF tnPropsAndComments_Count > 0 THEN + lnComment = ASCAN( taPropsAndComments, taPropsAndValues(I,1), 1, 0, 1, 1+2+4+8) - IF lnComment > 0 AND NOT EMPTY(taPropsAndComments(lnComment,2)) - TEXT TO tcCodigo ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2 - <<>> && <> - ENDTEXT + IF lnComment > 0 AND NOT EMPTY(taPropsAndComments(lnComment,2)) + TEXT TO tcCodigo ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2 + <<>> && <> + ENDTEXT + ENDIF ENDIF ENDFOR