修改字符日期类型为系统类型

有时候保存到数据库的日期类型是字符类型，在不同系统下因为系统的日期类型不一致会导致转换出错如strtodatetime，利用下面的方法转换一下日期字符就不会报错。

'2012-1-1 12:12:12'  与 '2012/1/1 12:12:12'

function changeDateType(str:string):string;
var sysdate,a,old:string;
    I:Integer;
    strlist:Tstringlist;
begin
  sysdate:=datetostr(now);
  if str='' then
  begin
    Result:=sysdate;
  end
  else
  begin
    old:=Copy(str,5,1);
    a:=copy(sysdate,5,1);
    if a=old then
    begin
      Result:=str;
    end
    else
    begin
      strlist:=splitstr(old,str);
      try
        result:=strlist[0]+a+strlist[1]+a+strlist[2];
      finally
        strlist.Free;
      end;
    end;
  end;
end;