case Level of
    0:begin
        RichEdit1.Lines.Insert(0,FormatDateTime('HH:NN:SS:ZZZ',now)+'  '+msg);
        RichEdit1.SelStart:=0;
        RichEdit1.SelLength:=length(RichEdit1.Lines[0]);
        RichEdit1.SelAttributes.Color:=clBlack;
      end;
    1:begin
        RichEdit1.Lines.Insert(0,'>>>>>'+FormatDateTime('HH:NN:SS:ZZZ',now)+'  '+msg+'<<<<<');
        RichEdit1.SelStart:=0;
        RichEdit1.SelLength:=length(RichEdit1.Lines[0]);
        RichEdit1.SelAttributes.Color:=clred;
      end;
  end;
  Application.ProcessMessages;
  RichEdit1.Refresh;
arrow
arrow
    文章標籤
    Delphi Vcl RichEdit
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄