Y a-t-il une solution pour optimiser mon petit code ?

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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 ?

13/06/2007, 13h59
J-P-B

Salut

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

JP
13/06/2007, 14h01
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 ...
13/06/2007, 14h03
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
13/06/2007, 14h06
pierre987321

...

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

j'explique pas pouquoi je v éviter le "saut" LoL
13/06/2007, 14h14
J-P-B

Citation:

Envoyé par pierre987321

(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
13/06/2007, 14h14
Clorish

Citation:

Envoyé par 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 ...

de l'odre de la nanoseconde ? ;)

Citation:

Envoyé par 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

Ah bon???
Code:

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

13/06/2007, 14h40
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 ..... ;)

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:

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;

Code:

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...

salut

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

Code:

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

En plus court :

Code:

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;

13/06/2007, 15h56
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)]
:yaisse2:

Sans IF ni CASE..OF :

Code:

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;

:aie:
:mrgreen:

13/06/2007, 16h08
ryko

Bravo !
13/06/2007, 16h12
Gilbert Geyer

Excuses j'ai simplifié à l'extrême dans la hâte:oops:
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 :king:
13/06/2007, 16h16
Gilbert Geyer

Et en plus ça marche, j'ai copié-collé-testé.:king: :king:
13/06/2007, 17h07
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
13/06/2007, 20h09
pierre987321

...

juste un mot "Merci" a vous tous :D

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

Voir 40 message(s) de cette discussion en une page