[fpc-pascal] Syncobjs Event and BlockWrite() question

2017-08-01 Thread Brian
When using WaitFor() , ResetEvent and SetEvent as a semaphore , if a thread is using BlockWrite() and the execution of BlockWrite() is conditional on WaitFor() , will BlockWrite() continue to function after it is called once MySemaphore.ResetEvent is called ? A pseudo code example below

Re: [fpc-pascal] why the 0.5 in the Unix Epoch (for UnixToDateTime function)

2017-08-01 Thread Mark Morgan Lloyd
On 01/08/17 12:15, Dennis Poon wrote: Vojtěch Čihák wrote:>> Hi,>> wiki https://en.wikipedia.org/wiki/Julian_day says that "... Julian > day number 0 assigned to the day starting at noon on January 1, 4713 > BC, ...">> The noon means 0,5.>Thanks,that is a weird definition though IMHO.

[fpc-pascal] Is it always safe to typecast a old style object as its parent?

2017-08-01 Thread Dennis
TParent = object A : integer; end; TChild=object(TParent) B : integer; end; var Parent : TParent; Child : TChild; begin Child.A := 10; Child.B := 20; Parent := TParent(Child );// is this always safe ? Will it copy ONLY the 'A' field to 'parent'? Will it

Re: [fpc-pascal] why the 0.5 in the Unix Epoch (for UnixToDateTime function)

2017-08-01 Thread Dennis Poon
Vojtěch Čihák wrote: Hi, wiki https://en.wikipedia.org/wiki/Julian_day says that "... Julian day number 0 assigned to the day starting at noon on January 1, 4713 BC, ..." The noon means 0,5. Thanks, that is a weird definition though IMHO. Dennis

Re: [fpc-pascal] why the 0.5 in the Unix Epoch (for UnixToDateTime function)

2017-08-01 Thread Vojtěch Čihák
Hi,   wiki https://en.wikipedia.org/wiki/Julian_day says that "... Julian day number 0 assigned to the day starting at noon on January 1, 4713 BC, ..." The noon means 0,5.   V. __ Od: Dennis Komu: FPC-Pascal

Re: [fpc-pascal] why the 0.5 in the Unix Epoch (for UnixToDateTime function)

2017-08-01 Thread Vojtěch Čihák
Hi,   wiki https://en.wikipedia.org/wiki/Julian_day says that "... Julian day number 0 assigned to the day starting at noon on January 1, 4713 BC, ..." The noon means 0,5.   V. __ Od: Dennis Komu: FPC-Pascal