Salut à tous,

j'ai un petit problème ; je suis en train d'ecrire un petit jeu en TPW et j'ai ecrit cette fonction.
Il faut que la fonction retourne un True ? Je ne comprends pas le problème.
Voici une capture d'écran :

Nom : 2015-01-10_104502.png
Affichages : 474
Taille : 17,3 Ko

Voici mon code :
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 wincrt;
 
function compare(valeur1, valeur2, valeur3 : string) : boolean;
begin
  writeln(valeur1, valeur2, valeur3);
  if ((valeur1 <> '') and (valeur2 <> '')) and (valeur3 <> '') then
    begin
      if ((valeur1 = valeur2) and (valeur1 = valeur3)) and (valeur2 = valeur3) then
        compare := true;
    end
  else
    compare := false;
end;
 
begin
writeln(compare('1', '1', '0'));
end.
merci d'avance !