bonjour voila j ss debutante en delphi j veux utiliser une procedure etat
voila
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TFmenuprinc.etat;
var    etat_bloq :string;
begin
etat_bloq:='2';
    if DataModule6.IBetat.locate('ETAT_CARTE', etat_bloq,[])= true then
    begin
     showmessage('bloquéé');
     end
     else showmessage('ouuuuuuu');
end;
il ya pas d'erreur de compilation mais ya pas de resultat
voici la declaration de la procedure
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
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Changermotdepasse1Click(Sender: TObject);
    procedure Ajouterutilisateur1Click(Sender: TObject);
    procedure supprimerutilisateur1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure o1Click(Sender: TObject);
    procedure able1Click(Sender: TObject);
    procedure ableforme1Click(Sender: TObject);
    procedure WMDeviceChange(var Msg: TMessage);     message WM_DEVICECHANGE;
//****************
    procedure etat;//******************************
//****************
    procedure ablemedicamament1Click(Sender: TObject);
    procedure Vente1Click(Sender: TObject);
  private


qunad j ai utilise le corps de procedure dans une prosedure delphi par exemple evement activate forme elle marche mai tt seul non
aider moi
merci d'avence