Re: [fpc-pascal] Parse unicode scalar

2023-07-03 Thread José Mejuto via fpc-pascal
El 03/07/2023 a las 10:27, Hairy Pixels via fpc-pascal escribió: Right now I've just read the file into an AnsiString and indexing assuming a fixed character size, which breaks of course if non-1 byte characters exist I also need to know if I come across something like \u1F496 I need to

Re: [fpc-pascal] SetFileTime

2023-05-03 Thread José Mejuto via fpc-pascal
El 03/05/2023 a las 8:48, Carsten Bager via fpc-pascal escribió: > I am trying to change the file date on a SYMLINK (not the file that the > link points to). > Does anyone know if there is a method for this under Windows. > Carsten Hello, Attached is a dirty implementation of "touch" for

Re: [fpc-pascal] RTLEventWaitFor

2022-04-05 Thread José Mejuto via fpc-pascal
El 05/04/2022 a las 1:03, Mattias Gaertner via fpc-pascal escribió: Hi Michael, Under Linux a RTLEventWaitFor(e,1) usually waits at most 1ms. But under Windows it usually waits at least 15ms. It seems to round to nearest 1/64 of a second. Googling this lead me to question the sanity of some

Re: [fpc-pascal] Reading Serial Hex Data

2020-12-28 Thread José Mejuto via fpc-pascal
El 28/12/2020 a las 2:02, James Richters via fpc-pascal escribió: I think I figured out why my writeln's are causing an issue.. they are introducing a delay between the SerWrite and SerRead... and the device I am reading is timing out and sending it's response a second time. Hello, None of

Re: [fpc-pascal] FPC 3.2fixes UTF8Decode strange place

2020-11-02 Thread José Mejuto via fpc-pascal
El 01/11/2020 a las 20:36, AlexeyT via fpc-pascal escribió: @/José Mejuto, can you pls simplify this place, ie remove "if /IBYTE = 10" + then/else. Hello, I don't have write access, so no, I can not. -- ___ fpc-pascal maillist -

Re: [fpc-pascal] FPC 3.2fixes UTF8Decode strange place

2020-10-28 Thread José Mejuto via fpc-pascal
El 27/10/2020 a las 21:25, AlexeyT via fpc-pascal escribió: rtl/inc/ustrings.inc function UTF8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt; a) it has "If (PreChar<>13) and FALSE then" and later some big block. with a comment which