Oh, please ignore and sorry for noise. I found the solution as soon as I
sent the e-mail. -.-
var
F: PManagedField;
R: TTestRecord;
T, T2: PTypeData;
I: Integer;
begin
R := Default(TTestRecord);
T := GetTypeData(TypeInfo(R));
F := PManagedField(PByte(@T^.TotalFieldCount) + 4);
for
Oops...
On Fri, Dec 14, 2018 at 3:35 AM silvioprog wrote:
[...]
> WriteLn(F^.TypeRef^.Kind, ':tk', F^.TypeRef^.Name);
>
I meant "':*ft*', F^.TypeRef^.Name);".
Anyway, still a very ugly workaround.
--
Silvio Clécio
___
fpc-pascal maillist - fpc-pa
Hi.
Please consider the following code:
uses TypInfo;
type
TTestRecord = record
Member1: LongInt;
Member2: Double;
Member3: string;
Member4: Extended;
end;
var
F: PManagedField;
R: TTestRecord;
T, T2: PTypeData;
I: Integer;
begin
R := Default(TTestRecord);
T := G
On Thu, 13 Dec 2018, Martin Frb wrote:
Besides, the documentation does not say that FreeOnTerminate is limited
to be used in the thread construction. Especially since its effect is
not due until "terminate"
For me this is a given.
Almost by definition, changing anything in a thread
Marco, Sílvio, thank you both. Since a ready function is available, I
used RF3339ToDatetime. I received lots of warnings about a possible
lost of data due to a string conversion from widestring to ansistring.
However, dispite the warnings, the result was perfect.
I didn't know scandatetime. Freepas
On 13/12/2018 19:52, Yuriy Sydorov wrote:
On 12/13/2018 1:06 PM, Martin wrote:
Is there a way to use FreeOnTerminate other that setting it in the
constructor (or before the thread starts / or in the rather complex
manner below)?
The doc does not mention any limitations
https://www.freepascal
On Thu, Dec 13, 2018 at 5:07 PM luciano de souza
wrote:
> Hello all,
> I'd like to convert this date "2017-01-11T17:47:22.2912317-02:00" to
> TDatetime.
>
uses restbase;
var
d: TDateTime;
begin
d := RFC3339ToDateTime('2017-01-11T17:47:22.2912317-02:00');
WriteLn(DateTimeToStr(d)); // prin
Op 2018-12-13 om 21:07 schreef luciano de souza:
Hello all,
I'd like to convert this date "2017-01-11T17:47:22.2912317-02:00" to TDatetime.
A quick attempt with some standard functions, note that it only parses
till millisecond precision, the rest (317) is ignored.
uses dateutils,sysutils,s
Hello all,
I'd like to convert this date "2017-01-11T17:47:22.2912317-02:00" to TDatetime.
It seems probably it exists in Freepascal, but I don't know.
So, I ask, how to suply a date in this format and get a TDatetime?
I found it in a XPDL file representing a flowchart and I don't know
how to do it
On 12/13/2018 1:06 PM, Martin wrote:
Is there a way to use FreeOnTerminate other that setting it in the constructor (or before the thread starts / or in the
rather complex manner below)?
The doc does not mention any limitations
https://www.freepascal.org/docs-html/rtl/classes/tthread.freeonter
Is there a way to use FreeOnTerminate other that setting it in the
constructor (or before the thread starts / or in the rather complex
manner below)?
The doc does not mention any limitations
https://www.freepascal.org/docs-html/rtl/classes/tthread.freeonterminate.html
However, setting FreeOn
11 matches
Mail list logo
