你能帮助我吗。我有一个代码,但它在 Android 上不起作用(谁会怀疑)。
procedure SetTime(sTime: string);
var
vsys: _SYSTEMTIME;
begin
GetLocalTime(vsys);
vsys.wYear := StrToInt(Copy(sTime,7,4));
vsys.wMonth := StrToInt(Copy(sTime,4,2));
vsys.wDay := StrToInt(Copy(sTime,1,2));
vsys.wHour := StrToInt(Copy(sTime,12,2));
vsys.wMinute := StrToInt(Copy(sTime,15,2));
vsys.wSecond := StrToInt(Copy(sTime,18,2));
SetLocalTime(vsys);
end;
我需要一个类似的代码,但要使其适用于 Android 或类比。提前致谢