romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 529 fdbozzo - 29/11/2014 16:39:20:

Browse Source 
- Arreglo defecto: Quitada la capitalización a minúsculas de propiedades Protected
This commit is contained in:
fdbozzo
2014-11-29 17:16:34 +01:00
parent fe40d8dd83
commit 5af062db63
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
foxbin2prg.prg
View File

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