delphi 7编写的代码查看编辑器对注释的着色

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  point: TPoint;
  x, x1, y, i, i1, i2, i3, i4, p: Integer;
  s1: string;
  pa: array[1..10] of char;
begin
 (********鼠标位置和焦点位置保存*********)
  x := point.X;
  y := point.Y;
  x1 := RichEdit1.SelStart;

  (*对注释进行删除时，对注释删除后的前半部分恢复常规并且字体加黑设置，如：'(*'删除'*'后'('部分要恢复常规并且字体加黑*)
  i := 0;
  p := Length(RichEdit1.Text);
  RichEdit1.SelStart := i;
  RichEdit1.SelLength := p;
  RichEdit1.SelAttributes.Style := [];
  RichEdit1.SelAttributes.Color := clBlack;


//变量赋初值
  i := 0;
  i1 := 0;
  p := 0;

  //
  (*******注释"{"和"}"的渲染*************************)
  while p >= 0 do
  begin
    i := 0;
    p := 0;

    i := PosEx('{', RichEdit1.Text, i1) - 1;
    p := PosEx('}', RichEdit1.Text, i1);

    if i > 0 then
    begin
      if (p = 0) or (p < i) then
      begin
        p := Length(RichEdit1.Text);
      end;
    end;

    if p <> 0 then
    begin
      i1 := p + 1;

      s1 := (copy(RichEdit1.Text, i, 1));
      pa[1] := s1[1];
      if (not (pa[1] in [''''])) and (not (pa[1] in ['"'])) or (i < p) then
      begin
        RichEdit1.SelStart := i;
        RichEdit1.SelLength := p - i;
        Richedit1.SelAttributes.Color := clGreen;
        RichEdit1.SelAttributes.Style := [fsItalic];
      end;

    end
    else
      Break;

  end;

 //

  //变量赋初值
  i := 0;
  i1 := 0;
  p := 0;

  (*******注释"（*"和'*）"的渲染 ********************************************)
  while p >= 0 do
  begin
    i := 0;
    p := 0;

    i := PosEx('(*', RichEdit1.Text, i1) - 1;
    p := PosEx('*)', RichEdit1.Text, i1);

    if i > 0 then
    begin
      if (p = 0) or (p < i) then
      begin
        p := Length(RichEdit1.Text);
      end;
    end;

    if p <> 0 then
    begin
      i1 := p + 2;

      s1 := (copy(RichEdit1.Text, i, 1));
      pa[1] := s1[1];
      if (not (pa[1] in [''''])) and (not (pa[1] in ['"'])) or (i < p) then
      begin
        RichEdit1.SelStart := i;
        RichEdit1.SelLength := p - i + 1;
        Richedit1.SelAttributes.Color := clGreen;
        RichEdit1.SelAttributes.Style := [fsItalic];
      end;

    end
    else
      Break;

  end;

(********************(注释'//"的渲染)*****************************************)

  i := 0;
  i1 := 0;
  i2 := 0;
  i3 := 0;
  i4 := 0;
  p := 0;
  i := PosEx('//', RichEdit1.Text, i1);
  if i > 0 then
  begin
    while i > 0 do
    begin
      i3 := 0;
      i := PosEx('//', RichEdit1.Text, i1);
      i1 := i + 3;
      begin
        RichEdit1.SelStart := i - 1;
        i4 := SendMessage(Richedit1.handle, EM_LINEFROMCHAR, Richedit1.selstart, 0);

        if i4 >= 0 then
        begin
          for i2 := 0 to i4 do
          begin
            i3 := i3 + Length(RichEdit1.Lines[i2]) + 2;  //DBRichEdit显示时用i3 := i3 + Length(RichEdit1.Lines[i2]);


          end;
          RichEdit1.SelLength := i3 - i;
          Richedit1.SelAttributes.Color := clGreen;
          RichEdit1.SelAttributes.Style := [fsItalic];
        end;
      end;
    end;
  end;
  
 (********鼠标位置和焦点位置重新植入*******************************************)
  point.X := x;
  point.Y := y;
  RichEdit1.SelStart := x1;
  RichEdit1.SetFocus;
end;