mmoMonitor:Tmemo;
mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ;
1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); 2 begin 3 ctsLog.Enter; 4 try 5 if memServerLog.Lines.Count > 100 then memServerLog.Clear; 6 7 if not IsShow then 8 begin 9 if Pos('出错',aInfo)>0 then 10 begin 11 if Pos('竞篮赛程',aInfo)>0 then 12 shp1.Brush.Color:=clFuchsia 13 else if Pos('竞篮赛果',aInfo)>0 then 14 shp2.Brush.Color:=clFuchsia 15 else if Pos('竞足赛程',aInfo)>0 then 16 shp3.Brush.Color:=clFuchsia 17 else if Pos('竞足赛果',aInfo)>0 then 18 shp4.Brush.Color:=clFuchsia 19 else if Pos('北单赛程',aInfo)>0 then 20 shp5.Brush.Color:=clFuchsia 21 else if Pos('北单赛果',aInfo)>0 then 22 shp6.Brush.Color:=clFuchsia 23 else if Pos('北单胜负赛程',aInfo)>0 then 24 shp7.Brush.Color:=clFuchsia 25 else if Pos('北单胜负赛果',aInfo)>0 then 26 shp8.Brush.Color:=clFuchsia; 27 tmrMonitor.Enabled:=True; 28 29 end 30 else 31 begin 32 insert(FormatDateTime('dd-HH:mm', Now),aInfo,4); 33 case StrToInt(trim(Copy(aInfo,1,2))) of 34 0: mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; 35 1: mmoMonitor.Lines.ValueFromIndex[1]:=aInfo; 36 2: mmoMonitor.Lines.ValueFromIndex[2]:=aInfo; 37 3: mmoMonitor.Lines.ValueFromIndex[3]:=aInfo; 38 4: mmoMonitor.Lines.ValueFromIndex[4]:=aInfo; 39 40 5: mmoMonitor.Lines.ValueFromIndex[5]:=aInfo; 41 6: mmoMonitor.Lines.ValueFromIndex[6]:=aInfo; 42 30: mmoMonitor.Lines.ValueFromIndex[7]:=aInfo; 43 31: mmoMonitor.Lines.ValueFromIndex[8]:=aInfo; 44 32: mmoMonitor.Lines.ValueFromIndex[9]:=aInfo; 45 33: mmoMonitor.Lines.ValueFromIndex[10]:=aInfo; 46 34: mmoMonitor.Lines.ValueFromIndex[11]:=aInfo; 47 48 12: mmoMonitor.Lines.ValueFromIndex[12]:=aInfo; 49 13: mmoMonitor.Lines.ValueFromIndex[13]:=aInfo; 50 14: mmoMonitor.Lines.ValueFromIndex[14]:=aInfo; 51 end; 52 end; 53 SaveFile2(aInfo,'抓取监测'); 54 55 end 56 else 57 begin 58 aInfo := FormatDateTime('yyyy-mm-dd HH:mm:ss', Now) + '-----' + aInfo; 59 memServerLog.Lines.Append(aInfo); 60 WriteLog(aInfo); 61 end; 62 finally 63 ctsLog.Leave; 64 end; 65 end;