Discussion :

[pttangediabolik]

Bonjour,
Je fais appel à vous car je n'arrive pas à résoudre un problème sous delphi.
Je voudrai réalisé une expertise à partir d'un questionnaire.
je voudrai aprés avoir répondu au questionnaire, le programme donne des conseil personnalisé suivant un recodage des informations.
Dans cet expertise, je ne doit pas utilisé de "IF" pour conseiller la personne.
Si vous plait aidez-moi.

[evarisnea]

, bienvenue sur le forum des développeurs.
j'imagine que les conseils personnalisés seront fonction des réponses aux questionnaire. dans ce cas je ne vois pas comment tu pourrais y arriver sans utiliser de IF.
ou en utilisant l'instruction case alors ? je n'ai peut être pas tout compris

[pttangediabolik]

oui oui ca dépend bien des réponses et moi non plus je vois pas comment ne pas utilisé de IF. Un CASE ce n'est pas pareil qu'un IF ??? Car je ne vois pas la différence.

[ero-sennin]

Salut et Bienvenue sur Developpez.com,

Voici un exemple qui va te montrer la "différence" entre un case et un if...
En fait, il n'y pas de grande différence ...

Avec les IF imbriqués (code assez lourd) :

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
procedure TForm1.Button2Click(Sender: TObject);
var
  Note:Integer;
begin
  Note:=4;
  if ((note>=0) and (note <=5)) then
    ShowMessage('Oula!De gros efforts sont à fournir!!')
  else
  begin
    if ((note>=6) and (note <=10)) then
      ShowMessage('On se rapproche de la moyenne, encore un effort!')
    else
    begin
      if ((note>=11) and (note <=15)) then
        ShowMessage('Pas mal du tout!Continuez')
      else
      begin
        if ((note>=16) and (note <=20)) then
          ShowMessage('Que dire, si ce n''est Félicitations')
        else
          ShowMessage('Note Incorrecte');
      end
    end;
  end;
end;

Avec un CASE : (beaucoup plus clair)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  Note:Integer;
begin
 Note:=4;
 case Note of
   0..5:ShowMessage('Oula!De gros efforts sont à fournir!!');
   6..10:ShowMessage('On se rapproche de la moyenne, encore un effort!');
   11..15:ShowMessage('Pas mal du tout!Continuez');
   16..20:ShowMessage('Que dire, si ce n''est Félicitations')
 else
   ShowMessage('Note Incorrecte');
 end;
end;

Ces deux codes font exactement la même chose, cependant, on test différemment la valeur de Note. Donc selon la note obtenu, on aura tel ou tel message ...

En espérant t'avoir éclairci un peu sur la chose.
A+

[pttangediabolik]

oui donc j'ai toujour mon problème car je ne doit pas utilisé de case non plus.
Si quelqu'un à une idée pour m'aider???? SVP???

[ALWEBER]

Si tu nous donnes un exemple de ce que peut être un questionnaire, nous pourrons t'apporter des réponses

[pttangediabolik]

merci à tous pour vos réponses.
J'ai trouver une solution qui est de faire appel à une base de données pour rechercher le résultat correct à partir du recodage numérique des questions.
Es que quelqu'un pourrai m'expliqué comment on fait dans delphi pour lui demander de rechercher dans une base de données????
bonne journée

[ShaiLeTroll]

Cela doit être claire dans ta tête, mais pour nous c'est le brouillard, tu dois avoir des contraintes étranges ...

pour la Base de données,
Oracle, SQL Serveur, MySQL
pour le fournisseur
ODA pour ODBC, DBExpress, BDE, ...

Tu as un énorme tutoriels sur le site !

Ah, sinon, à un moment donné, il te faudra écrire

IF Data.NotEmpty
IF Data.Locate

le IF on y échappe pas