关于获取日期格式后进行显示的处理

function Getdatestr:string;
var
  fs:TFormatSettings;
begin
  Result:='';
  GetLocaleFormatSettings(GetUserDefaultLCID,fs);
  result:=fs.DateSeparator;
end;

function Geterrdatestr(cs:string):string;
var
  i,cn:Integer;
  datess:string;
begin
  Result:='';
  cn:= Length(cs);
  datess:=cs;
  for i := 1 to cn do
  begin
//      datess:=Copy(cs,i,1);
    if (datess[i] in ['0'..'9'])then
      Continue
    else
    begin
      Result:=datess[i];
      Exit;
    end;
  end;
end;

function makedatemode(tims:string):string;
var
  rs,es,cs:string;
begin
  rs:= Getdatestr;
  es:= Geterrdatestr(tims);

  if es<>rs then
    Result:=StringReplace(tims,es,rs,[rfReplaceAll])
  else
  begin
    if es='' then
    begin
      Result:= '';
    end;
  end;
end;