EndProcedure
Publié : mer. 05/juil./2006 23:52
Ce code s'arrète sur la ligne EndProcedure avec l'erreur "Invalid memory access"
J'ai beau cherché je sais pas d'où ça vient, si quelqu'un a une idée.
Code : Tout sélectionner
Procedure Remplace(*Pointeur,ChaineCherchee.s, ChaineRemplacee.s)
PokeS(*Pointeur,ReplaceString(PeekS(*Pointeur),ChaineCherchee,ChaineRemplacee))
EndProcedure
Texte.s="If ReadFile(#FichierSource,²d:\LibTest.pb²)"
Remplace(@Texte,"²","<br>")
Remplace(@Texte," "," ")