Discussion :

[Ardely]

Bonsoir, Voici mon petit probleme!
J'ai une variable String que j'importe dans un TRichEdit, le but est que si je pousse sur le bouton1 tous les 0 doit être mise en fsBold.
Voici ce que j'ai fait, mais sa ne fonctionne pas correctement, je dois faire quelque par un mauvais raisonnement. Merci pour vôtre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// Le contenue de la variable ImportCode1 est par expl.  '0123456789023762106542067'
 
Form1.FMemo1.Lines.Text := ImportCode1; 
..
..
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  for I := 1 to length(Form1.FMemo1.Lines.Text) do
  begin
    if (Form1.FMemo1.Lines.Text[i] = '0')  then Form1.FMemo1.Font.Style := fsBold];
  end;
end;

Salutations

[philnext]

Pour faire ce que tu veux il faut que tu écrive caractère par caractère dans ton TRichEdit et, quand tu vas écrire un '0' tu passe en bold quand tu écris autre chose tu passes en normal.

[Ardely]

Donc si je pousse sur mon bouton1 je dois rescanner tout mon text et changer la condition à cette position..! Merci pour ta réponse.

[LadyWasky]

Tu peux essayer ceci (click du bouton) :

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
procedure TForm1.Button1Click(Sender: TObject);
var
FoundAt:LongInt;
StartPos,ToEnd:Integer;
begin
  with RichEdit1 do
  begin
    StartPos :=0;
    ToEnd :=Length(Text)-StartPos;
    FoundAt :=FindText('0',StartPos,ToEnd,[stMatchCase]);
    while FoundAt <>-1 do
    begin
      SelStart :=FoundAt;
      SelLength :=1;
      SelAttributes.Style:=SelAttributes.Style+[fsbold];
      StartPos:=SelStart+SelLength;
      ToEnd :=Length(Text)-StartPos;
      FoundAt :=FindText('0',StartPos,ToEnd,[stMatchCase]);
    end;
  end;
end;

Et ça c'est pour quand tu souhaites le faire pendant la frappe (OnChange du RichEdit) :

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
procedure TForm1.RichEdit1Change(Sender: TObject);
var FontStyles:TFontStyles;
begin
  with RichEdit1 do
  begin
    if Text[Length(Text)]='0' then
    begin
      FontStyles:=SelAttributes.Style;
      SelStart:=SelStart-1;
      SelLength:=1;
      SelAttributes.Style:=SelAttributes.Style+[fsbold];
      selstart:=Length(Text);
      SelAttributes.Style:=FontStyles;
    end;
  end;
end;

Bon dev

[Ardely]

Bonsoir, J'ai eu un grand plaisire à lire tout cela, Merci
Encore juste une petite question
Si je veux effacer un nombre de la même manière comme tu me le propose
dois-je tout simplement remplacer

Code :

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

1
2
 
SelAttributes.Style:=SelAttributes.Style+[fsbold];

par quelque chose de similaire

Code :

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

1
2
 
SelAttributes.Style:=SelAttributes.delete // ????

Salutations

[LadyWasky]

non, le principe, c'est que tu sélectionne ton texte avec SelStart et SelLength (ou SelEnd), et tu remplace le texte sélectionné comme ceci :

Code :

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

SelText:=''; //supprime le texte sélectionné en le remplaçant par une chaîne vide

SelAttributes contient le formattage du texte sélectionné, si on agit dessus, c'est donc pour modifier l'apparence du texte, pas le texte lui-même.

[Ardely]

Merci pour tes explications trés claire, bonne journée.

[Sub0]

http://sub0.developpez.com/delphi/syntax.zip

N'oublis pas le tag
Merci.

[LadyWasky]

http://sub0.developpez.com/delphi/syntax.zip

N'oublis pas le tag
Merci.

Il est vraiment super ton petit programme, court et très efficace !

[Sub0]

Il est vraiment super ton petit programme, court et très efficace !

Merci du compliment. Pour bien faire, il faudrait l'optimiser en ne traitant que la ligne en cours d'édition... Mais bon, c'est une petite démo.