delphi 对Tmemo指定的行写入

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

mmoMonitor:Tmemo;

mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ;

 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean);

 begin

   ctsLog.Enter;

   try

     if memServerLog.Lines.Count >  then memServerLog.Clear;

     if not IsShow then

     begin

       if Pos('出错',aInfo)> then

       begin

         if Pos('竞篮赛程',aInfo)> then

           shp1.Brush.Color:=clFuchsia

         else if Pos('竞篮赛果',aInfo)> then

           shp2.Brush.Color:=clFuchsia

         else if Pos('竞足赛程',aInfo)> then

           shp3.Brush.Color:=clFuchsia

         else if Pos('竞足赛果',aInfo)> then

           shp4.Brush.Color:=clFuchsia

         else if Pos('北单赛程',aInfo)> then

           shp5.Brush.Color:=clFuchsia

         else if Pos('北单赛果',aInfo)> then

           shp6.Brush.Color:=clFuchsia

         else if Pos('北单胜负赛程',aInfo)> then

           shp7.Brush.Color:=clFuchsia

         else if Pos('北单胜负赛果',aInfo)> then

           shp8.Brush.Color:=clFuchsia;

         tmrMonitor.Enabled:=True;

       end

       else

       begin

         insert(FormatDateTime('dd-HH:mm', Now),aInfo,);

         case StrToInt(trim(Copy(aInfo,,))) of

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo ;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

         end;

       end;

       SaveFile2(aInfo,'抓取监测');

     end

     else

     begin

       aInfo := FormatDateTime('yyyy-mm-dd HH:mm:ss', Now) + '-----' + aInfo;

       memServerLog.Lines.Append(aInfo);

       WriteLog(aInfo);

     end;

   finally

     ctsLog.Leave;

   end;

 end;