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

用户应用程序无权更改设备上的 date/time。此处对此进行了更详细的讨论：How to set mobile system time and date in android?

也许你能做的最好的事情就是调用系统 date/time 设置 activity。在 Java 代码中是

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

这应该很简单，您可以将其翻译成 Delphi 等价物。这个 Embarcadero 代码示例介绍了如何做到这一点：http://docwiki.embarcadero.com/CodeExamples/Seattle/en/FMX.Android_Intents_Sample

FireMonkey 中的系统时间

SYSTEMTIME in FireMonkey

android

delphi

firemonkey

delphi-xe5

systemtime