[Résolu] #PB_Processor_x86 = Erreur de syntaxe
Publié : mar. 11/déc./2012 13:33
Je ne comprend pas pourquoi je ne peux pas compiler cette procédure avec PB 5.0, pouvez-vous m'éclairer ?
Je vous remercie d'avance
Je vous remercie d'avance
Code : Tout sélectionner
ProcedureDLL .s RepeterChaine(Chaine.s, Multiplicateur.i)
; répète une chaîne un nombre donné de fois
Protected Resultat.s
If Multiplicateur > 0
Protected Longueur_chaine.i, Nouvelle_longueur.i, i.i
Protected *Pointeur_resultat
Longueur_chaine = Len(Chaine)
Nouvelle_longueur = Multiplicateur *Longueur_chaine
Resultat = Space(Nouvelle_longueur)
*Pointeur_resultat = @Resultat
For i = 1 To Multiplicateur
PokeS(*Pointeur_resultat, Chaine)
If i < Multiplicateur
CompilerIf #PB_Processor_x64
*Pointeur_resultat +(Longueur_chaine * 2)
CompilerElse #PB_Processor_x86 ; Erreur de syntaxe
*Pointeur_resultat +Longueur_chaine
CompilerEndIf
EndIf
Next i
Else
Resultat = ""
EndIf
ProcedureReturn Resultat
EndProcedure