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;