Changeset: 384 fdbozzo - 31/07/2014 20:54:10:

- Optimización y normalización de las propiedades y métodos que van en el memo PROTECTED para que no se repitan

foxbin2prg.prg

@@ -8495,9 +8495,17 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 				ASORT( taProtected, 1, -1, 0, 1 )
 			ENDIF
 
-			FOR I = 1 TO tnProtected_Count
+			FOR I = tnProtected_Count TO 1 STEP -1
-				tcSortedMemo	= tcSortedMemo + taProtected(I) + CR_LF
+				*-- El ASCAN es para evitar valores repetidos, que se eliminar<61>n. v1.19.29
+				IF ASCAN( taProtected, taProtected(I), 1, -1, 0,1+2+4 ) = I
+					tcSortedMemo	= tcSortedMemo + LOWER(taProtected(I)) + CR_LF
+				ELSE
+					ADEL( taProtected, I )
+					tnProtected_Count	= tnProtected_Count - 1
+				ENDIF
 			ENDFOR
+			
+			DIMENSION taProtected(tnProtected_Count)
 		ENDIF
 
 		RETURN