Pobrubianie znanych wyrazów

0

Jaki miałby być kod, żeby w richedit zaznaczać na pogrubione np słowa 'Begin' tak jak to robi Borlad delphi ?

0

SynEdit

0

A ja podam jednak kod, choć prościej będzie użyć SynEdita.

RichEdit1.SelStart := Pos('begin', RichEdit1.Lines.Text);
RichEdit1.SelLength := 5; //bo tyle ma liter słowo begin
RichEdit1.SelAttributes.Style := [fsBold];

0

A ja podam jednak kod, choć prościej będzie użyć SynEdita.

Rozwijając pomysł:

const
bold: array[0..X] of String = // i tutaj w tablicy wyrazy które mają być pogrubione

var
a,i,mi: Integer;
s: String;

begin
for i:=0 to Length(bold)-1 do begin
mi:=0;
s:=RichEdit1.Text;
while Pos(bold[i],s)>0 then begin
a:=Pos(bold[i],s);
RichEdit1.SelStart := a+mi;
RichEdit1.SelLength := Length(bold[i]);
RichEdit1.SelAttributes.Style := [fsBold];
Delete(s,1,a);
Inc(mi,a);
end;
end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1