Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2015, 17:25   #1
TommyChong
 
Регистрация: 16.10.2015
Сообщений: 6
По умолчанию FireMonkey в Delphi XE5

День добрый, форумчане!

Озадачился я переносом одной программки с lazarus на Delphi XE5, а именно на андроид.
И столкнулся с одной проблемой. Следующий код не работает (Ну и не должен ) под android. Может кто-нибудь подскажет, как аналогично сделать нижеописанную процедуру под android, а именно под firemonkey

Код:
procedure SetTime(sTime: string);
{$IFDEF WIN32}
var
   vsys: _SYSTEMTIME;
{$ENDIF WIN32}

begin
   {$IFDEF WIN32}
      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);
   {$ENDIF WIN32}
end;
Заранее благодарен

Последний раз редактировалось Stilet; 16.10.2015 в 18:11.
TommyChong вне форума Ответить с цитированием
Старый 16.10.2015, 18:12   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Как вариант:
Код:
procedure SetTime(sTime: string);
{$IFDEF WIN32}
var
   vsys: DateTime;
{$ENDIF WIN32}

begin
   {$IFDEF WIN32}
      vsys:=StrToDateTime(sTime);
   {$ENDIF WIN32}
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.10.2015, 10:28   #3
TommyChong
 
Регистрация: 16.10.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Как вариант:
Код:
procedure SetTime(sTime: string);
{$IFDEF WIN32}
var
   vsys: DateTime;
{$ENDIF WIN32}

begin
   {$IFDEF WIN32}
      vsys:=StrToDateTime(sTime);
   {$ENDIF WIN32}
end;
Этот код конечно же будет работать, но он пропускается, так как он же исключается при запуске в android

Мне нужно что-то типа этого, чтобы все Set и Get localtime были андроидовскими, в частности FireMonkey'ковскими. По сути похоже на это:

Цитата:
procedure SetTime(sTime: string);
{$IFDEF Android}
var
vsys: Андроид_SYSTEMTIME;

{$ENDIF Android}

begin
{$IFDEF Android}
Андроид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);
{$ENDIF Android}
end;
Просто проблема в том, что в windows есть такая вещь как GetLocalTime, _SYSTEMTIME и прочее. Мне нужен аналог этого в firemonkey. Должно же быть что-то похожее в FireMonkey
TommyChong вне форума Ответить с цитированием
Старый 19.10.2015, 11:10   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
но он пропускается
Ну так убери директивы )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.10.2015, 11:55   #5
TommyChong
 
Регистрация: 16.10.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Ну так убери директивы )
Нет в андроиде, в FMX, понятия DateTime. На винде код работает на андроиде код не будет работать. Директивы для мультиплатформы нужны, а мне же нужно чтобы на андроиде был аналог кода для получения даты в андроиде
TommyChong вне форума Ответить с цитированием
Старый 19.10.2015, 12:12   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Нет в андроиде, в FMX, понятия DateTime.
Странно... А что же там тогда для работы с датой есть? Это что ли?: http://developer.android.com/referen...stemClock.html
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.10.2015, 12:38   #7
TommyChong
 
Регистрация: 16.10.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Странно... А что же там тогда для работы с датой есть? Это что ли?: http://developer.android.com/referen...stemClock.html
Вот, что-то похожее на правду, пойду разбираться. Вообще на андроиде все не так . Спасибо, Stilet. Если что, еще напишу
TommyChong вне форума Ответить с цитированием
Старый 19.10.2015, 13:07   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Вообще на андроиде все не так
Та ну да... Вообще я чет не верю что в огнебизяне нет функций, работы со временем. Это уже перебор тупости от Эмбаркадырки, если так и есть.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.10.2015, 16:58   #9
TommyChong
 
Регистрация: 16.10.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Та ну да... Вообще я чет не верю что в огнебизяне нет функций, работы со временем. Это уже перебор тупости от Эмбаркадырки, если так и есть.
Да должны быть. Только вот не гуглится ни черта, вот и форумчан спрашиваю. Просто SYSTEMTIME чисто шиндовская штуковина
TommyChong вне форума Ответить с цитированием
Старый 19.10.2015, 21:02   #10
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
Сообщение от TommyChong Посмотреть сообщение
Нет в андроиде, в FMX, понятия DateTime.
Такого, как DateTime нет, но такое понятие как TDateTime, есть.
Streletz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
delphi xe5 TUberwer Общие вопросы Delphi 2 01.02.2014 00:25
FireMonkey, CopyToClipboard, Mac OS X. (Delphi XE3) XerSon Общие вопросы Delphi 1 13.12.2012 07:38
не движет объекты в DELPHI XE2 Firemonkey ST@LKER Общие вопросы Delphi 0 12.03.2012 19:48
Delphi XE2 firemonkey ST@LKER Общие вопросы Delphi 8 07.03.2012 23:47
Delphi XE2 надписи FireMonkey ZBEP Общие вопросы Delphi 1 23.02.2012 20:07