bien bonjour!
encore là je me heurte à un caillout.
j'ai defini la fonction suivate:
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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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