Probleme de if

Question

Voila alors avant de me dire de bien regarder partout avant de poster, sachez que c'est ce que je n'arrete pas de faire.

en faite je fait du delphi depuis ce 2 jours seulement et j'ai un prob &#224; ce niveau :



//-----------------------------------------------------------//

procedure TForm1.SupprimerClick(Sender: TObject);

var rep : integer;

begin

rep:= MessageBox(Handle,'Etes-vous s&#251;r de vouloir supprimer cette personne ?',

 'Avertissement',MB_YESNO or MB_ICONWARNING );

 if (rep =IDOK)

     //Si r&#233;ponse OK Suppression de l'enregistrement

  then

  Client.Delete;





end;



//----------------------------------------------------------//



si je ne m'est pas 2 fois Client.Delete; &#231; ane marche pas et quand je
le mais 2 fois que je clic sur oui ou sur non il me l'efface qd meme.

Alors un petit coup de main serait le bien venu merci d'avance.

ni69 · Answer

Le probl&#232;me vient de IDOK. En effet, dans ton code, tu testes une r&#233;ponse OK, alors que tu n'as que les bouton Oui ou Non ! 

Voici le code corrig&#233; :
procedure TForm1.SupprimerClick(Sender: TObject);
var
    rep : integer;
begin
rep:=  MessageBox(Handle,'Etes-vous s&#251;r de vouloir supprimer cette personne ?',
 'Avertissement', MB_YESNO  or MB_ICONWARNING );
 if (rep  =IDYES) then  //Si r&#233;ponse OUI , Suppression de l'enregistrement
  Client.Delete;
end;


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_ManChesTer · Answer

Procedure TForm1.SupprimerClick(Sender: TObject);
Begin
 If not (MessageBox(Handle,'Etes-vous s&#251;r de vouloir supprimer cette personne ?', 
                                               'Avertissement',
                                               MB_YESNO or MB_ICONWARNING) = IDNO)  Then 
  Client.Delete;
End;

Bon Coding ....

ManChesTer.

ni69 · Answer

Effectivement c'est plus court ManChesTer 
Mais j'ai encore mieux en enlevant le not :

If  MessageBox(Handle,'Etes-vous s&#251;r de vouloir supprimer cette personne ?', 'Avertissement', MB_YESNO or MB_ICONWARNING) = IDYES  Then 
Client.Delete;


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_ManChesTer · Answer

h&#233;h&#233;,
 
passe un mode debug =>fenetre cpu et compare les codes.... et... Oh, Une astuce, lol

Bon Coding ....

ManChesTer.

Probleme de if

4 réponses

Votre réponse

Discussions similaires