All pastes #965875 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-04-01 08:51 UTC
rendered paste body
// si ça c'est l'avenir :) vive l'agriculture à la main :D
PROCEDURE EnleverAncienChamps()

i est un entier = 1
sNomChamp est une chaîne = EnumèreChamp(FenêtreQuestionnaire, i, parOrdreDeCréation)
TANTQUE sNomChamp <> ""
	SI VérifieExpressionRégulière(sNomChamp, "^champRéponse_.*$") ALORS
		{sNomChamp, indChamp}..Visible = Faux
		{sNomChamp, indChamp}..Valeur = Faux
	FIN
	i++
	sNomChamp = EnumèreChamp(FenêtreQuestionnaire,i,parOrdreDeCréation)
FIN