Discussion :

[pierre987321]

bonjour,
suite a la réalisation d'un petit bou de code je cherche
a l'optimiser sans le IF. mais je voi pas la !!!

mon peiti bou de code est :

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
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
begin
if (Length(Edit1.Text)<5) or (Length(Edit1.Text)>7) then
begin
//indique rien
edit2.Text := '';
end
else
begin
edit2.Text := 'Bonne longeur, Merci';
end;
end;
end;

Le message doit s'afficher uniquement entre 5 et 7, sinon rien.

Quelqu'un a une idée ? ou une info utile ?

[J-P-B]

Salut

Moi j'aurais pas écrit mieux ... as-tu des problèmes de performance ?

JP

[J-P-B]

A si peut-être pour être pointilleux :
sauver le Length(Edit1.Text) dans une variable locale pour éviter de le calculer 2 fois, mais le gain est certainement minime ...

[e-ric]

Je ne vois pas comment on peut optimiser ceci et je vois encore moins ce qu'il y a à optimiser. A mon avis, tu perds ton temps

Remarque sur le style : n'abuses pas des begin...end, c'est comme toutes les bonnes choses...

cdlt

[pierre987321]

(optimiser) en faite supprimer le IF.
pour éviter les "sauts" sur le if.

j'explique pas pouquoi je v éviter le "saut" LoL

[J-P-B]

(optimiser) pour éviter les "sauts" sur le if.

Là c'est pas de l'optimisation ... c'est de la complexification qu'il te faut ... parce qu'un test sans if c'est plus dur

[Clorish]

A si peut-être pour être pointilleux :
sauver le Length(Edit1.Text) dans une variable locale pour éviter de le calculer 2 fois, mais le gain est certainement minime ...

de l'odre de la nanoseconde ?

[Hauwke]

Je ne vois pas comment on peut optimiser ceci et je vois encore moins ce qu'il y a à optimiser. A mon avis, tu perds ton temps
Remarque sur le style : n'abuses pas des begin...end, c'est comme toutes les bonnes choses...
cdlt

Ah bon???

Code :

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

1
2
3
4
5
6
7
8
9
 
begin
    Case length(Edit1.Text) of
    0..5 : Edit1.Text := ''; // <5
    8..255 :  Edit1.Text := 'Vous avez la bonne longueur!';//>7
    6,7 : Edit1.text :='Ca tombe mal, j''avais pas prévu celà';// Cas intermédiaire
    256 : Edit1.text := 'Vous avez dépassé mes capacités';// m'étonnerai que le TEdit laisse passer de toutes façons ;)
    end;
end;

cordialement,
Hauwke

[Clorish]

heuu un case c'est jsute une IF particulier dont la longeur du saut dependsde la valeur et non de taille fixe.
Pour l'avoir codé dans un projet de compilo pascal generant du pseudo code ASM .... c'est pas franchement plus complexe qu'un if

La question n'ets pas comment remplacer le IF mais plutot comment le dissimuler au millieu de code utile car des IF on en a de partout dans le code

Ou alors .. passe directement en mode ASM .... mais comme l'a dit Paul dans un autre post, l'asm dans un prog Delphi ca saute aux pieds comme un doigt au millieu de la cuisse .....

[defluc]

C'est sûr que Case permet de nuancer beaucoup plus que If.

En plus de la remarque sur le style, je m'en permettrais une autre sur la présentation et, reprenant ton exemple, ce qui suit me parait beaucoup plus clair à déchiffrer grâce à l'indentation.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if (Length(Edit1.Text)<5) or (Length(Edit1.Text)>7) then
     edit2.Text := '';  //indique rien
                                                      else
     edit2.Text := 'Bonne longeur, Merci';
end;

[Gilbert Geyer]

Code :

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

1
2
3
4
5
6
7
8
Testé :
var      ok : boolean;
begin   ok:=length(Edit2.text)=6;
          case ok of
               true : Edit3.text:='Le message doit s''afficher, "uniquement entre 5 et 7", donc à 6';
               false: Edit3.text:=''; //<=sinon rien
          end;
end;

... plus court et sans 'case' ni 'if' sais pas faire plus simple
... il existe peut-être une possibilité plus compliquée sans if ni case si ok pouvait être remplacé par un événement onLongueurDeEditEgale6 mais là c'est plus du brain storming qu'une suggestion ... à voir avec les fortiches du forum...

[anapurna]

salut


une variante ...pas sur quelle soit plus optimiser mais pour le fun

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
function verifiechaine(mots : String) : string;
var
  Bool : boolean;
  lg : integer;
begin
  Result := '';
  bool := length(mots) in [5,6,7];
 (* lg:= length(mots) 
   bool := (lg >= 5) and (lg <=7); *)
 if not(bool) then
    Result := 'Bonne longeur, Merci';
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
   edit2.Text := verifiechaine(Edit1.Text)
end;

PS : le code de gilbert ne tiens pas bien compte des borne

@+ Phil

[ALWEBER]

En plus court :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function verifiechaine(mots : ShortString) : string;
begin
  Result := '';
  if Mots[0] in [5,6,7] then
     Result := 'Bonne longueur, Merci';
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
   edit2.Text := verifiechaine(Edit1.Text)
end;

[ryko]

Bonjour,

si je peux proposer autre chose, plus rapide je sais pas, mais plus gourmand certainement :

déclarer un tableau de 0 à 1000 (par exemple) de chaînes. Le tableau d'indices 0 à 5 est initialisé à ''.
A l'indice 6 il est initialisé à 'Bonne longeur, Merci'. Et à partir de l'indice 7 il est initialisé à ''.

Après il suffit d'affecter quelque chose du genre :

Edit2.Text:=Tableau[Length(Edit1.Text)]

[LadyWasky]

Sans IF ni CASE..OF :

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
const LeMessage:array[0..1] of string=('','Bonne longueur, Merci');
begin
 edit2.Text := LeMessage[integer(Length(Edit1.Text) in [5..7])];
end;

[ryko]

Bravo !

[Gilbert Geyer]

Excuses j'ai simplifié à l'extrême dans la hâte
Ok pour ok:= length(mots) in [5,6,7];
Mais bigre, pas le temps de dégainer v'la deux propositions supp qui surgissent.
Bravo Waskol pour le Sans IF ni case

[Gilbert Geyer]

Et en plus ça marche, j'ai copié-collé-testé.

[anapurna]

salut

ouais pas mal
je suis pas sur que cela soit plus optimisé en code asm mais bon le contrat est rempli

j'oublie souvent que le boulean c'est 0 ou 1
je l'aurait un jour ... je l'aurait

@+ Phil

[pierre987321]

juste un mot "Merci" a vous tous

vous avez d'énorme idéessss, c'est quand meme dingue