Rooyee Messenger 2.3.1 源码中的日期异常问题

来源：互联网发布：网络app套什么定额编辑：程序博客网时间：2024/05/22 13:10

RMUserList.pas中有个procedure:

procedure TRMUserName.Load(AFilePath, AJID: WideString);var  tmpIniFile: TIniFile;  tmpUserName: WideString;  I: Integer;begin  FLastTime := 0;  FJID := AJID;  FUserNameList.Clear;  if FileExists(AFilePath) then  begin    tmpIniFile := TIniFile.Create(AFilePath);    try      FLastTime := tmpIniFile.ReadDateTime(Sys_Config_Login, Sys_Config_LoginTime, 0);      FLastName := tmpIniFile.ReadString(Sys_Config_Login, Sys_Config_LastName, FLastName);      if FLastName = '' then        FLastName := JIDWithoutDefaultDomain(FJID);      tmpUserName := tmpIniFile.ReadString(Sys_Config_Login, Sys_Config_UserNamesList, '');      FUserNameList.DelimitedText := tmpUserName;      for I := 0 to FUserNameList.Count - 1 do        FUserNameList.Strings[I] := JIDWithoutDefaultDomain(FUserNameList.Strings[I]);    finally      tmpIniFile.Free;    end;  end;    AddUserJID;end;

就是这一行：

FLastTime := tmpIniFile.ReadDateTime(Sys_Config_Login, Sys_Config_LoginTime, 0);

调试运行报错,读取上次登录时间,连'2013-11-26 20:19:13'不能正确从字符转日期,这不是坑爹吗？

在Project源文件中引用sysutils.pas,begin后 JCLIsLibrary := False;前加入:

ShortDateFormat := 'yyyy-MM-dd';
DateSeparator := '-';
TimeSeparator := ':';
ShortTimeFormat := 'H:mm:ss';

就可以了！