Probleme mon bout de code ......

[jbernard13]

bonjour, je rencontre un petit probleme de code en faites avec la commande ReadString , je sais que lui mettre une constante ( #fichier)

mais je sais pas comment dire au programme que #fichier = text.s
si je lance le code j'ai une erreur a la commande Readstring. si quelq'un peux m'aider j'ai parcouru le forum à la recherche d'un indice mais j'ai pas trouver .

ps: avant la version 4.0 ça marcher nickel .

Code : Tout sélectionner

Procedure charger_document()
  text.s=OpenFileRequester( "chargement d'un fichier texte","","Fichier text|*.txt",0)
  If text<> ""
    If OpenFile(0,text)
      Repeat
        AddGadgetItem(#Document,-1,ReadString())
      Until Eof(0)
      CloseFile(0)
    EndIf
  EndIf
EndProcedure

[zaphod]

AddGadgetItem(#Document,-1,ReadString(0))

[jbernard13]

merci ça marche j'avais pas penser à mettre 0
merci .