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;
文章標籤
全站熱搜
JSP (2)