Discussion :

[dimi2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Aka Guymelef]

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.

[dimi2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  ...
  lexique : Text;
 
begin
  ...
 
  Assign(lexique,'mots_1.txt');
  Reset(lexique);
 
  ...
end;

[Linkin]

Plutôt un TextFile non?

[Cl@udius]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dimi2]

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.

[Aka Guymelef]

Donne toute la partie var de ta procédure.

[dimi2]

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 !