Type Text non reconnu dans Delphi

Bonjour,

J'ai écrit un programme dans TurboPascal sous Windows qui fonctionne bien. Lorsque je l'inclus comme évènement d'un bouton dans Delphi, j'ai le message d'erreur suivant, à la ligne déclarant un fichier à lire par le programme :

Code:

---

1 2	Var Lexique : Text;

---

Le message d'erreur est :
Erreur 12 : Identificateur de type attendu.

Je ne comprends pas quelle est l'erreur quand tout se passe bien hors Delphi .

Je vous remercie beaucoup de votre aide.

Bonjour,

Là comme ça brut de fonderie, impossible de dire quel est le problème, il nous faudrait une plus grosse portion de code, notamment autour de la ligne où ça ne compile pas.

Merci.
Le compilateur s'arrête sur la ligne indiquée dans la partie Var.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var ... lexique : Text;   begin ...   Assign(lexique,'mots_1.txt'); Reset(lexique);   ... end;

---

Plutôt un TextFile non?

Salut

Si il s'agit bien d'un fichier texte, le type Text doit être remplacé par un TextFile.

Voici un exemple extrait de l'aide de Delphi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var F: TextFile; S: string; begin if OpenDialog1.Execute then {Affichage de la boîte de dialogue d'ouverture } begin AssignFile(F, OpenDialog1.FileName);{Fichier sélectionnédans la boîte de dialogue } Reset(F); Readln(F, S);{Lecture de la première ligne du fichier } Edit1.Text := S;{Introduction de la chaîne dans un contrôle TEdit } CloseFile(F); end; end;

---

PS: N'oublies de transformer le Assign en AssignFile. ;)

@+ Claudius

Maintenant c'est Ok mais... le problème est plus loin. J'ai l'impression que je dois modifier pas mal de lignes pour que mon script Turbo Pascal soit accepté par Delphi.
Je vais tenter de procéder à ces corrections avec ma doc. Si je n'y arrive pas, je redemanderai une aide...
Merci beaucoup.

Donne toute la partie var de ta procédure.

Le problème est résolu. Merci beaucoup. Je m'attaque maintenant aux suivants... et il y en a pas mal quand on passe de turbo Pascal à Delphi !