Discussion :

[JoseF]

bonjour,

j'ai fait une bout de programme en mode console et mon compilateur Free Pascal Compiler version 2.0.1 [2005/10/02] for i386 (de Lazarus) me sort ce message :

Variable "F" does not seem to be initialized

voici le source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program rappel;
//uses crt;
var	F:Text;
	a:string;
begin
	AssignFile(F,'rappel.txt'); // 2.0
	//Assign(F,'rappel.txt'); // 1.0 ou 2.0
	reset(F);
	while not eof(F) do
	begin
	  readln(F,a);
	  writeln(a);
 	end;
	close(F);
	write('terminé');
	readln;
end.

si je compile avec avec freepascal 1.0.6 je ne rencontre pas ce problème

est-ce génant ou est-ce un bug du compilo ?

Merci

[Eric Sigoillot]

Bonjour,

Oui, même problème chez moi, on peut en effet considérer ça comme un bug.
A signaler chez FreePascal

@++

[JoseF]

Bonjour,

merci d'avoir testé également !

je veux bien écrire à FreePascal mais comme je ne connais psa trop l'anglais si quelqu'un veut le faire et argumenter un minimum ,ce serait sympa ..


merci d'avance

[j.p.mignot]

Je n'avais jamais utilisé FreePascal ( en Pascal j'utilise TurboPascal 6/7 ou Delphi)
J'ai été intrigué par vos mails et viens de downloader et installer ce compilateur
chez moi
le soft est en ordre mais j'ai du utiliser assign(f,'...) et non assignfile(f,'...)
si le fichier ouvert existe dans la path. Si non l'ai une erreur d'exécution 2. Je n'ai pas installé le Help aussi je ne peux garantir que le compilateur ai bien réagit mais il n'y a pas de raisons!

[Eric Sigoillot]

AssignFile a été ajoutée à l'origine avec Delphi, pour éviter la confusion entre la procédure Assign qui associe un fichier à une variable et la méthode Assign des classes dérivant de TPersistent.

@++

[j.p.mignot]

je le sais. Mais dans le cadre dupetiit soft à tester proposé ici, avec FreePsacal, j'ai supprimé assignfile et remis assign comme sous la ligne commentée.
Moyennant quoi, si le fichier à ouvrir existe, je n'ai pas eu d'erreur et j'ai restitué sur le fenêtre "DOS" le contenu de ce dernier.
si le fichier est absent, il y a 1 erreur ce qui est normal. Je ne connais pas FreePascal mais il a l'air de pas mal resembler à TurboPascal autel cas elle doit être captable via {$i-} et ioresult.
il doit aussi surment avoir une fonction du type fileexxists ou existfile - si non l'écrire!-
Je n'ai pas essayé d'executer le soft avec un fichier existant mais binaire ( c.a.d. pouvant contenir des caractères non comformes à une sortie sur écran)

[JoseF]

bonjour,

le problème n'est pas à l'exécution du programme (logique de programmation : tester si le fichier existe ou non etc) mais à la compilation uniquement.

Le programme ne reconnait pas la variable F dans Assign dans la version 2.0

Alors que le compilateur identifie bien la variable F en version 1.0

bien à vous et merci de vous interesser à ce problème (mineur tout de même !!)

[Alcatîz]

Bonjour !

Mais en fait, s'agit-il d'une erreur de compilation fatale ou d'un warning ? "does not seem" fait plutôt penser à un avertissement.

[JoseF]

bonjour,

en fait je pense que ce n'est qu'un warning. mais j'aime bien quand je ne vois rien d'anormal dans le code retour des compil et pour un débutant ça peut lui faire se poser des questions inutiles