Kto Hochet Statj Millionerom Delphi

I tried the new Record type TTimeSpan in Delphi 2010. But I encourage a very strange problem. Assert(TTimeSpan.FromMilliseconds(5000).Milliseconds = 5000); This assertion does not pass. The value of 'TTimeSpan.FromMilliseconds(5000).Milliseconds' is expected to be 5000, but it was 0. I dig deeper: function TTimeSpan.GetMilliseconds: Integer; begin Result:= Integer((FTicks div TicksPerMillisecond) mod 1000); end; FTicks = 50000000 TicksPerMillisecond = 10000 FTick div TicksPerMillisecond = 50000000 div 10000 = 5000 (FTick div TicksPerMillisecond) mod 1000 = 5000 mod 1000 = 0 // I do not understand, why mod 1000 Integer((FTick div TicksPerMillisecond) mod 1000) = Integer(0) = 0 My code interpretation is correct, isn't it? UPDATE: The method GetTotalMilliseconds (double precision) is implemented correctly.

You are confusing the properties giving the total amount expressed in a given unit with the properties giving the portion of a value when you break it up into its components (days, hours, minutes, seconds, milliseconds, ticks). With those, you get the integer remainder for each category. So, Milliseconds will always be between 0 and 999 (Number Of Milliseconds Per Second - 1). Or, another example, if you have 72 minutes, TotalMinutes is 72, but Minutes is 12.

0.6 -orakul-otkrytie-tayny-oracle-at-delphi-mystery-revealed-2006-discovery.html. Nov 21, 2017.

It is very much similar to the DecodeDateTime function to break up a TDateTime. Chertezh shponochnoj frenzy v kompase. And for what you want to achieve, you definitely need to use the TotalMilliseconds property, as TridenT pointed out, but the code for GetMilliseconds is indeed correct in TimeSpan.