Новости Embarcadero , Новости, патчи, ссылки, объявления, анонсы...

[P.O.D]

Delphi XE3
RAD Studio Mobile
HTML 5 Builder
Embarcadero MVP
Редакции Starter
Сертификация
AppWave

Холивары:
Есть ли будущее у Delphi?
Delphi vs C++ vs C# vs Java

Прошлые обсуждения:
Delphi XE2
Delphi XE
Delphi 2007
Delphi for PHP
Редакция Turbo
Delphi 2009
Delphi Prism
Delphi 2005
Новости CodeGear

Сообщение отредактировано: CodeMonkey - 06.02.13, 23:15

[Krid]

Цитата Fr0sT @ 13.10.15, 07:12

Ну и бу на них Аж с 7ки баг тянется, и все никак не починят

Согласен, реально достали уже

[Krid]

Subscription Update 1 for RAD Studio 10 Seattle, Delphi 10 Seattle and C++Builder 10 Seattle

ISO (6,9 GB): http://altd.embarcadero.com/download/radst...lder10_upd1.iso

Bug fix list

[Krid]

Embarcadero RAD Studio 10.1 Berlin

ISO (7 GB): http://altd.embarcadero.com/download/radst...builder10_1.iso

What's New
Bug fix list

Краткий обзор на хабре: Релиз RAD Studio 10.1 Berlin (Delphi, C++Builder)

[Fr0sT]

Долго думал, куда отправить этот крик души, наверно, все-таки в новости, ибо вызвано сменой кодовой базы.
Глянул я вчера исходник элементарного IncDay и погрузился в охреневающий ужас...

function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer = 1): TDateTime;
begin
  Result := IncHour(AValue, ANumberOfDays * HoursPerDay);
end;
 
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;
begin
  Result := IncMinute(AValue, ANumberOfHours * MinsPerHour);
end;
 
function IncMinute(const AValue: TDateTime;
  const ANumberOfMinutes: Int64 = 1): TDateTime;
begin
  Result := IncSecond(AValue, ANumberOfMinutes * MinsPerHour);
end;
 
function IncSecond(const AValue: TDateTime;
  const ANumberOfSeconds: Int64 = 1): TDateTime;
begin
  Result := IncMilliSecond(Avalue, ANumberOfSeconds * MSecsPerSec);
end;
 
function IncMilliSecond(const AValue: TDateTime;
  const ANumberOfMilliSeconds: Int64 = 1): TDateTime;
var
  TS: TTimeStamp;
  TempTime: Comp;
begin
  TS := DateTimeToTimeStamp(AValue);
  TempTime := TimeStampToMSecs(TS);
  TempTime := TempTime + ANumberOfMilliSeconds;
  TS := MSecsToTimeStamp(TempTime);
  Result := TimeStampToDateTime(TS);
end;

И это я еще не привел функции
1) DateTimeToTimeStamp
2) TimeStampToMSecs
3) MSecsToTimeStamp
4) TimeStampToDateTime

Полез в D7, чтобы убедиться, что не страдаю воспоминаниями из параллельной реальности

function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer): TDateTime;
begin
  Result := AValue + ANumberOfDays;
end;

Спрашивается, на хрена такие "обновления"?

Сообщение отредактировано: Fr0sT - 20.05.16, 12:14

[Славян]

Цитата Fr0sT @ 20.05.16, 12:13

Спрашивается, на хрена такие "обновления"?

Быть может готовятся, что TDateTime будет не просто Double, которой нет на каких-нибудь ARM'ах (или ещё где), а какой-то более универсальной структурой/классом.
Ну и "метод чайника" весьма надёжен.

П.С. а так - да, кошмарно выглядит, на первый взгляд.

[Fr0sT]

Всё может быть, и мультиплатформенность требует жертв. Почему, однако, у FPC такой проблемы нет, а ведь он компилится под ARM? Ну и в конце концов, зачем делать настолько длинную цепочку вызовов, множа imul-ы (не говоря уже о том, что у меня почему-то эти функции не инлайнятся, в результате чего на asm код вообще лучше не смотреть), почему бы не умножать сразу на нужную величину? Загадка.

[Shaggy]

Цитата Fr0sT @ 20.05.16, 12:13

Спрашивается, на хрена такие "обновления"?

IncDay из D7 может пропустить неверную дату
а обновлённая, кинет исключение

[Fr0sT]

Shaggy, а что есть "неверная дата"? Для tdatetime это 01/01/0100, для timestamp - 01/01/0000, но это просто условности, и если не брать во внимание сопутствующие функции, то сами по себе типы прекрасно обработают отрицательные значения.
Кроме того, ничто не мешало и у tdatetime сравнивать с нижним пределом.

[Pavia]

Fr0sT
Дельфи морально устарел.

Есть международный стандарт выпущенный ещё до Delphi. Но уже отменяющий TimeStamp. Наши его перевели в ГОСТ ИСО 8601-2001. Но разработчики Delphi озаботились только сейчас.

Так вот в дате есть весокосные года 29 февраля. Есть системы дата-время где есть високосные часы минуты и секунды.

Они же дополнительные секунды.

Есть ещё и доп минуты и доп часы Смотрите там часы от 00 до 24 минуты от 00 до 60.

Сообщение отредактировано: Pavia - 20.05.16, 16:25

[Fr0sT]

Pavia, и какое представление современно?

[Krid]

Цитата Fr0sT @ 20.05.16, 12:13

Глянул я вчера исходник элементарного IncDay и погрузился в охреневающий ужас...

Код того же boost'а не видел?

[Fr0sT]

Krid, буст известный мастодонт, я туда и не лезу - это все сиплюсплюсные дела. А вот в RTL такой подставы не ожидал...

[Krid]

Цитата Fr0sT @ 20.06.16, 07:07

А вот в RTL такой подставы никто не ожидал...

Согласен

Просто они хотят одинаковую базу кода подвести для всех платформ.
Если серьёзно, то этот код Delphi ничем не отличается от кода Microsoft'а.

[Mr.Delphist]

Цитата Fr0sT @ 20.05.16, 12:13

Глянул я вчера исходник элементарного IncDay и погрузился в охреневающий ужас...
...
Спрашивается, на хрена такие "обновления"?

Элементарного IncDay? Дело в том, что как в той песенке поётся, "всё хорошо, прекрасная маркиза, за исключеньем пустяка..."
Вот для затравки:
«Never say never» или Работаем с таймзонами правильно
Что же всё-таки не так со структурой DateTime?

Очень рад, что у Delphi-команды дошли руки и до этого. Ибо в Delphi RTL было дофигища подобных naive implementation для "элементарных" вещей. Скажем, то же округление - далеко не сразу появились Floor/Ceiling/etc, поэтому в старых проектах часто приходилось рисовать "своё" округление для верной работы дробей.

[Fr0sT]

Цитата Mr.Delphist @ 20.06.16, 20:46

Вот для затравки:
«Never say never» или Работаем с таймзонами правильно
Что же всё-таки не так со структурой DateTime?

Как все это соотносится с TDateTime?