Discussion :

[Crick]

Je désire faire un éditeur texte pour le langage assembler (langage machine). Le code est dans un RichEdit standard et je voudrais qu'il y a les changements suivants :

1) Lorsque l'usager entre un mot réservé au langage (j'ai déjà la liste des mots), je veux que ce mot devienne vert. Or, je veux que ce soit le mot exact, et non une occurence d'un grand mot.

2) Lorsque l'usager entre un ";", je veux que tout ce qui suit, y compris le ";", devienne bleu. Si on suprime le ";", je veux annuler la couleur pour cette ligne.

Pas besoin de tout me faire, m'expliquer comment faire devrait être largement suffisant. Merci d'avance.

[Seb]

Salut,

Je n'ai pas une formule toute faite pour répondre à ta question, mais en fouillant un peu sur le net, je suis tombé sur le code suivant (mise à jour par clic sur un bouton ), qui permet de marquer de différentes couleurs les tags HTML.

Le code est le suivant :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor); 
var  
  i, iDop: Integer; 
  s: string; 
  Col: TColor; 
  isTag, isDop: Boolean; 
begin 
  iDop := 0; 
  isDop := False; 
  isTag := False; 
  Col := TextCol; 
  RichEdit.SetFocus; 
 
  for i := 0 to Length(RichEdit.Text) do 
  begin 
    RichEdit.SelStart := i; 
    RichEdit.SelLength := 1; 
    s := RichEdit.SelText; 
 
    if (s = '<') or (s = '{') then isTag := True; 
 
    if isTag then 
      if (s = '"') then 
        if not isDop then 
        begin 
          iDop  := 1; 
          isDop := True; 
        end  
        else 
          isDop := False; 
 
    if isTag then 
      if isDop then 
      begin 
        if iDop <> 1 then Col := DopCol; 
      end  
      else 
        Col := TagCol 
    else 
      Col := TextCol; 
 
    RichEdit.SelAttributes.Color := Col; 
 
    iDop := 0; 
 
    if (s = '>') or (s = '}') then isTag := False; 
  end; 
 
  RichEdit.SelLength := 0; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RichEdit1.Lines.BeginUpdate; 
  HTMLSyntax(RichEdit1, clBlue, clRed, clGreen); 
  RichEdit1.Lines.EndUpdate; 
end;

Pour l'avoir en live :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  RichEdit1.Lines.BeginUpdate;
  HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
  RichEdit1.Lines.EndUpdate;
end;

En bidouillant, je pense que tu peux arriver à tes fins.

A+,

Seb.

[Crick]

Merci bien, ce n'est pas tout à fait ce qu'il me faut, mais c'est quand même plus que j'espérais

Merci encore, je vais être capable à partir de cet exemple de faire ce que je voulais.

[rbag]

Salut,

va voir à cette adresse :http://synedit.sourceforge.net/

tu trouveras surement ton bonheur

[Aramis]

Pourquoi se compliquer la vie !
utilise ConTEXT en plus c est fait en Delphi 4

@->--

[Crick]

C'est un travail que j'ai à faire pour un cours, et béta comme je suis, j'ai pas bien écouter le professeur. De toute manière, je trouve qu'on apprend mieux quand on cherche par soi-même, avec un petit d'aide des autres parfois

Pas grave, merci quand même d'avoir fait cet effort, si quelqu'un a le même problème que moi, il aura quelques solutions suplémentaires