Discussion :

[néo333]

Bonjour à tous j'ai une petite question !!! comme d'hab, je voulais savoir est ce qu'il est possible sous free pascal d'utiliser dans un programme une varaible et donc de lui affecter une valeur ensuite l'utiliser dans une procedure .. sachant que la procedure et dans le programme.....

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
18
19
 
program test;
 
uses crt,windows;
procedure premiere;
var nom2:array [00..255] of char;
nom2:=nom;
writeln('mon nom est' nom2);
 
end;
 
var nom : array[00..255] of char;
 
begin
 
nom:= 'toto';
 
premiere;
end.

la ça marche pas pas il reconnait pas la variable (nom) du programme principale .... Merci !!!


deuxième question !!! :

Pourquoi showmessage ne fonctionne pas sous free pascal, ya peut être une unité que je connais pas !! ???[/b]

[HRS]

un begin manquant et la variable nom pas déclarée au bon endroit

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
 
program test; 
uses crt,windows; 
var 
   nom : array[0..255] of char; {* la déclaration doit précéder l'utilisation *}
procedure premiere; 
  var nom2:array [0..255] of char; 
begin                           {* begin manquant *}
  nom2:=nom; 
  writeln('mon nom est', nom2);  {* virgule manquante *}
end; 
begin 
  nom:= 'toto'; 
  premiere; 
end.

[néo333]

Merci j'avais oublié la virgule avant la variable NOM dans le writeln Merci @+