Pascal-Delphi - Function-Procedure

Résolu

axelvdk Messages postés 41 Date d'inscription dimanche 26 août 2012 Statut Membre Dernière intervention 30 mai 2013 - 23 nov. 2011 à 12:56
axelvdk Messages postés 41 Date d'inscription dimanche 26 août 2012 Statut Membre Dernière intervention 30 mai 2013 - 23 nov. 2011 à 15:27

Bonjour aimable samaritain,

Je voudrais faire tourner ce programme mais le compilateur me dit : undeclared identifier "dico".

Que puis-je faire ?

Program charge;
uses sysutils;
Var
fich : TextFile;
mot : String;
// ...
Begin
If FileExists(dico.txt) Then Begin
AssignFile(fich, dico.txt);
Reset(fich);
While Not Eof(fich) Do Begin
ReadLn(fich, mot);
writeln(mot);
End;
End
Else
writeln('le fichier n''est pas disponible');
end.

Merci aimable samaritain
Les petits ruisseaux font les grands fleuves...

A voir également:

Delphi fileexist
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Delphi stringreplace - Forum Delphi / Pascal
Delphi formatdatetime ✓ - Forum Delphi / Pascal
Delphi decompiler ✓ - Forum Delphi / Pascal

2 réponses

Réponse 1 / 2

Guillemouze Messages postés 991 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 29 août 2013 6
23 nov. 2011 à 14:02

If FileExists('dico.txt') Then Begin

Réponse 2 / 2

axelvdk Messages postés 41 Date d'inscription dimanche 26 août 2012 Statut Membre Dernière intervention 30 mai 2013 1
23 nov. 2011 à 15:27

Au risque de me répéter : Merci . C'était effectivement ça le qui n'allait pas.

Les petits ruisseaux font les grands fleuves...

Discussions similaires

FileExists

Convertir un png en jpeg Delphi XE

Parametre de ShellExecute

Fonction Pos().

Manipulation avec FormatDateTime

Votre réponse

Discussions similaires