FireMonkey中的系统

Question

你能帮帮我吗。我有一个代码，但它不工作在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或类推上工作。提前感谢

Answer 1

用户应用程序没有更改设备上的日期/时间的权限。这里将更详细地讨论这一点：How to set mobile system time and date in android?

那么，最好的方法就是调用系统日期/时间设置活动。在Java代码中

startActivity(new Intent(android.provider.Settings.ACTION_DATE_SETTINGS));

这应该足够简单，您可以将其转换为Delphi等价物。这个Embarcadero代码示例介绍了如何做到这一点：Sample