Delphi 加载Txt文件中的内容显示在Memo中文字的前面

 

{*------------------------------------------------------------------------------
   显示日记的内容

  @param Flag  是否显示当前文档的全  只输入
-------------------------------------------------------------------------------}
procedure TWarnLogForm.ReadCurrentLog(Flag: Boolean);
var
  FileName: string;
  TempList: TStringList;
begin
  mmoWarnLog.Clear;
  if Flag then
  begin
    FileName := frm_Main.GetLogFileName;
    TempList := TStringList.Create;
    try
      TempList.LoadFromFile(FileName);
      TempList.AddStrings(frm_Main.mmo_Log.Lines);
      mmoWarnLog.Lines.AddStrings(TempList);
    finally
      FreeAndNil(TempList);
    end;
  end
  else
  begin
    mmoWarnLog.Text := frm_Main.mmo_Log.Text ;
  end;
end;