Delphi 10 Seattle ではGetFirstWeekday()を使うほうが良いらしいです。

  • 3
    いいね
  • 0
    コメント

GetLocaleFirstDayOfWeek()のかわりにGetFirstWeekday()使う方が良いらしいです。

http://docwiki.embarcadero.com/Libraries/Seattle/ja/FMX.Platform.IFMXLocaleService.GetFirstWeekday
現在ロケールのカレンダ最初の曜日だすメソッドです。

fmx_main.pas
procedure TForm1.FormCreate(Sender: TObject);
var
  localservice: IFMXLocaleService;
  week: Integer;
begin
  TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService,IInterface(localservice));
  week := localservice.GetFirstWeekday();

  case week of
  7: Caption := '日本は日曜から始まります';
  else
    Caption := Format('%0.2d', [week]); //外国。
  end;

end;

2015-09-0317.11.42.png

参考URL

https://www.embarcadero.com/jp/products/rad-studio/start-for-free