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