procedure setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
---------------------
作者：清风古韵
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
