Помогите с подсветкой в Memo

[xReactions]

Уважаемые пользователи помогите пожалуйсто с подсветкой текста в TMemo если возможно, чтобы при наборе текста TMemo проверял текст и если он найдёт ( if или connect ) тогда выделит слово в синий цвет.

[SunKnight]

Лучше RichEdit использовать

[xReactions]

хорошо ! но если в RichEdit делать у меня он выделяется и глючит а надо чтоб не глючело пожалуйсто помогите тогда с RichEdit'ом буду очень благодарен

[StartMis]

Попробуй вот несовсем то что просиш но может подойдет:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then

      StartPos := SelStart + SelLength
    else

      StartPos := 0;

    { ToEnd is the length from StartPos to the end of the text in the rich edit control }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(edit1.Text, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(edit1.Text);
      Richedit1.SelAttributes.Color:=clred;
      edit1.SetFocus;
    end;
  end;
end;

[xReactions]

спасибо но не то !

[StartMis]

Выложи исходник каторый у тебя глючит

[xReactions]

Вот лови, он толжен не глючить как тормоз а просто продолжать писать...

[_Dmitry]

Немного поправил

var
  k0: integer = 0;
  k1: integer;

procedure TForm1.RichEdit1Change(Sender: TObject);
const
  word: array[1..18] of string[9] = ('if','then','else','begin','end','for','to',
    'do','while','repeat','until','case','of','type','var','const','procedure',   
    'function');
var
  i: integer;
  ch: char;
  s: string;
begin
  k1:=length(RichEdit1.Text);
  if k1 <> 0 then
    begin
      ch:=RichEdit1.Text[k1];
      s:='';
      if ch = #32 then s:=copy(RichEdit1.Text,k0+1,k1-k0-1);
      if ch = #10 then s:=copy(RichEdit1.Text,k0+1,k1-k0-2);
      for i:=1 to length(word) do
        if s = word[i] then
          begin
            RichEdit1.SelStart:=k0;
            RichEdit1.SelLength:=length(s);
            RichEdit1.SelAttributes.Color:=clblue;
            RichEdit1.SelStart:=k1;
          end;
      if (ch = #32) or (ch = #10) then k0:=k1;
    end;
end;

[xReactions]

спасибо большое но можно сделать так чтобы не было одного бага просто когда написал например with if и сделался пробел он выделился но если ещё нажать между i ... f тогда он дальше синим будет писать !

[_Dmitry]

Конечно можно. Делайте.
Думаю идея понятна. Слова разделяются пробелами (#32) или "концами строк" (#13#10). Сравниваем их со словарем, если совпадают, меняем цвет.