Discussion :

[fulgar]

Bonjour,
je ne suis pas un spécialiste de Delphi mais j'ai un programme que j'essaie de compiler et il me met l'erreur suivante :

les types des paramètres VAR originaux et formels doivent être identiques.
Quelqu'un peut m'aiguiller. J'ai bien compris que c'est en passant des arguments dans une fonction mais je ne vois pas ce qui pose problème
merci de votre aide éventuel

[droggo]

Jua,

Ma boule de cristal étant en panne...

Bon, tu vois en quoi consiste le problème, mais franchement, comment veux-tu qu'on puisse t'aider, à part de te répéter ce que tu as compris, sans au moins quelques lignes de ton code ?

[sjrd]

Je plussoie droggo, mais ma boule de cristal fonctionne un petit peu aujourd'hui

En fait tu as quelque part une fonction de ce style :

Code :

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

function SomeFunc(var Param: Word): Boolean;

C'est peut-être même (mais là c'est un peu flou dans ma boule) :

Code :

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

procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);

Et tu appelles cette routine en lui passant un paramètre de type Integer. Genre :

Code :

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

1
2
3
4
5
6
var
  I, Year, Month, Day: Integer;
begin
  if SomeFunc(I) then
    DecodeDate(Now, Year, Month, Day);
end;

Et ça plante sur l'appel.

D'habitude, tu peux parfaitement envoyer un paramètre Integer quand la routine attend un Word (ou toute autre combinaison d'entiers). Mais ce n'est pas vrai si le paramètre est spécifié var ou out, comme c'est le cas ici.
Tu dois alors absolument utiliser le type défini.

Code :

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

1
2
var
  I, Year, Month, Day: Word;