[function][delphi]problème valeur de retour

Version imprimable

bien bonjour!
encore là je me heurte à un caillout. :oops:
j'ai defini la fonction suivate:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
function verif_sortie():boolean;
var b:boolean;
begin
  b:=false;
  with form6 do
    begin
      ibquery4.SQL.Clear;
      ibquery4.SQL.Add('select reference_sortie from fiche_de_sortie inner join materiels');
      ibquery4.SQL.Add('on fiche_de_sortie.num_serie_mat=materiels.num_serie_mat inner join');
      ibquery4.SQL.Add('fiche_d__entree on materiels.num_serie_mat=fiche_d__entree.num_serie_mat');
      ibquery4.SQL.add('where num_entree=:s');
      ibquery4.ParamByName('s').asinteger:=strtoint(form6.Edit4.Text)+1;
      ibquery4.Open;
        if ibquery4.FieldValues['reference_sortie']<>null then
          begin
            MessageDlg('Ce materiels est déjà sortie !',mtInformation,[mbok],0);
            b:=true;
          end
        else
        begin
        b:=false;
        exit;
        end;
      ibquery4.Close;
    end;
    verif_sortie:=b;
end;

le problème c'est que delphi me montre ça, au moment de la compilation :

Code:

1
2
 
[Avertissement] Test.pas(566): La valeur de retour de la fonction 'verif_sortie' peut être indéfinie

et que quand j'utilise la fonction elle retourne toujours la valeur "False"
mercie d'avance de votre aide et conseil
cordialement

14/11/2006, 13h25
qi130

Si tu passes par le else de ton if, tu sors (exit) mais la valeur de retour de la fonction n'a pas été affecté.

En y regardant de plus près, cette partie else ne sert à rien en l'état...

Je me suis permis de modifier ton code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function verif_sortie(Valeur : Integer):boolean;
begin
  b:=false;
  with form6.IbQuery4 do
  begin
    try
      SQL.Clear;
      SQL.Add('select reference_sortie from fiche_de_sortie inner join materiels');
      SQL.Add('on fiche_de_sortie.num_serie_mat=materiels.num_serie_mat inner join');
      SQL.Add('fiche_d__entree on materiels.num_serie_mat=fiche_d__entree.num_serie_mat');
      SQL.add('where num_entree=:s');
      ParamByName('s').asinteger:=Valeur;
      Open;
      if Not FieldByName('reference_sortie).IsNull then
      begin
         Result:=true;
         MessageDlg('Ce materiels est déjà sortie !',mtInformation,[mbok],0);
      end
      else
      begin
        Result:=false;
      end;
    finally
      Close;
    end
   end;
end;

Utilise comme

Code:

If verif_sortie(strtoint(form6.Edit4.Text)+1) then ...

Voilà