函数类型: 自定义函数
函数说明:
取得当前系统的短日期格式
代码如下:
function GetsysDateFormat: string;
var
sgs: string;
begin
SetLength(sgs, 12);
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, Pchar(sgs), 12);
Result := string(Pchar(sgs));
end;
用法示例:
无
《学习大师原创文档,请勿转载,侵权必究》
|