Discussion :

[avogadro]

coucou tout le monde,

ma procédure suivante et cencée renvoyer les balises [g] et [/g] autour du texte selectionné jusque la tout va bien mais la suite et plus ardue. En effet au premier clic elle doit renvoyer [g] et au deuxieme clic elle renvoie [/g], pour cela j'utilise l'incrémentation d'une varibale notée ici "o"! mais il y a plusieur erreurs...

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
var o : integer;
begin
if Memo3.SelText <> ''  then
Memo3.SelText := '[g]' + Memo3.SelText + '[/g]'
else
o := 1;
        begin
 
        if o mod 2 <> 0   then
          begin
          Memo3.SelText := Memo3.SelText + '[g]';
          o := o + 1;
          end
        else
          begin
          Memo3.SelText := Memo3.SelText + '[/g]';
          o := o + 1;
          end;
        end;
end;

Erreurs :

Code :

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

1
2
3
[Conseil] Unit1.pas(276): La valeur affectée à 'o' n'est jamais utilisée
[Conseil] Unit1.pas(277): La valeur affectée à 'o' n'est jamais utilisée
[Avertissement] Unit1.pas(268): La variable 'o' n'est peut-être pas initialisée

[TicTacToe]

il faut mettre ton

Code :

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

o := 1;

après le begin.

sinon, Delphi considere cela comme la seule instruction de ton else, et execute inconditionnelement le bloc suivant Begin... end...

Les avertissement sont normaux vu le codes

[avogadro]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        begin
        o := 1;
        if o mod 2 <> 0   then
        begin
        Memo3.SelText := Memo3.SelText + '[g]';
        o := o + 1;
        end
        else
        begin
        Memo3.SelText := Memo3.SelText + '[/g]';
        o := o + 1;
        end;
        end;

ça ne change pas vraiment vu que la valeur n'est jamais utilisée une fois de plus... ds ce cas jai une suite de [g]

[TicTacToe]

Je n'ai pas potassé ton code afin d'y comprendre l'algorithme.
ce que j'ai vu et supposé par rapport à ton écriture et ton indentation, c'était le probleme de l'affectation de ta var. o.

Ce qui change tout au niveau du code !

C'est purement syntaxique à ce niveau.
l'avertissement a du disparaitre, par contre le compilo doit rester avec le 'non utilisé'
-> normal, tu affectes o, mais tu ne l'utilises nul par après ...

Mais après une rapide visu, mettre 'o' à 1 et tester si son modulo vaut 0, ... à mon avis il y a un probleme à ce niveau aussi...

Petite remarque, attention, 'o' est une variable locale et est ré-inialisé a chaque appel de ta fonction...

et j'ai pas tout compris ce que tu voulais faire.

[aityahia]

moi a votre place je ferais sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var  PremierClick : Boolean; 
begin 
 if Memo3.SelText <> ''  then 
    Memo3.SelText := '[g]' + Memo3.SelText + '[/g]' 
 else 
   begin
     if PremierClick Then  
       Memo3.SelText := Memo3.SelText + '[g]'
       else
       Memo3.SelText := Memo3.SelText + '[/g]':
 
 PremierClick := Not PremierClick ; 
end;

la variable PremierClick
il faut la Déclarer a l'extérieur de la procédure en privé au public

[avogadro]

niquel, cest une autre façon et cest parfait !! merci beaucoup . . .