fed kode

RichEdit1.SelAttributes.Style := [fsBold]; //den markerede tekst bliver fed

okay men jeg vil gerne ha at vær gang jeg skriv fks: "string" så bliver "string" fed

hmm, så er du nok nødt til at gennemsøge teksten for det/de ord der skal være med fed

Jeg biksede noget sammen, der gør "string" fed. Det er meget ueffektivt, men kan du bruge det er det fjong

procedure TForm1.Button1Click(Sender: TObject);
const
  BoldStr = 'string';
var
  p : Integer;
  Offset : Integer;
  T : string;
begin
  T := RichEdit1.Text;
  Offset := 0;

  repeat
    p := Pos(BoldStr, T);

    if p > 0 then
    begin
      RichEdit1.SelStart  := (Offset + p) - 1;
      RichEdit1.SelLength := Length(BoldStr);
      RichEdit1.SelAttributes.Style := [fsBold];
      Delete(T, 1, p + Length(BoldStr));
      Offset := Offset + p + Length(BoldStr);
    end;
  until p <= 0;
end;

Og måske tilføje det til en timer :)

sfredsted>>Så begynder det at blive rigtig grimt :) Jeg tror ikke at min kode kan bruges, hvis man skal lave noget a la Delphi.

hmm.. brug noget nico22's svar med RichEdit.OnKeyDown eller download synedit.

Jeg finder lige en url til dig til synedit..

http://sourceforge.net/projects/synedit/

yousif>>Det vil være rigtig grimt, at løbe hele teksten igennem hver gang man trykker på en tast :)

nico22>Så vælger man bare synedit, det kan måle sig med delphi's cod..

yousif>>Jeg kender den ikke, men nu gik spørgsmålet også på en RichEdit.

nico22> synedit er et komponent der er lavet til netop den slags ting.. syntaks-farvning o.s.v.