Attila Kovacs

What kind of DB and Field type and DAC? Can you read the data fine with the D2007 app?

does the blob editor showing it in raw hex? do you read the blob as blobfield and stream or as string?

We're approaching levels unseen.

Just press ctrl+shift+v instead of ctrl+v.

add this to your unit or add it to a unit which you include everywhere after "RzTrkBar" in the uses list. interface type TRzTrackBar = class(RzTrkBar.TRzTrackBar) private procedure WMSetCursor(var Msg: TWMSetCursor); message wm_SetCursor; end; implementation procedure TRzTrackBar.WMSetCursor(var Msg: TWMSetCursor); begin end;

override the WMSetCursor message for TRzTrackBar

@Alberto Paganini You need const in the parameter list, also measure with TStopwatch and not with Now(), and try not to use local string variable, like: function JsonStringToDateTime(const Src: string): TDateTime; const ofs = Ord('0'); var pSrc: PChar; Time: TDateTime; begin if Length(Src) < 19 then Exit(gOutOfScopelDate); pSrc := Pointer(Src); if not TryEncodeDate( // ((Ord((pSrc)^) - ofs) * 1000) + ((Ord((pSrc + 1)^) - ofs) * 100) + ((Ord((pSrc + 2)^) - ofs) * 10) + (Ord((pSrc + 3)^) - ofs), // ((Ord((pSrc + 5)^) - ofs) * 10) + (Ord((pSrc + 6)^) - ofs), // ((Ord((pSrc + 8)^) - ofs) * 10) + (Ord((pSrc + 9)^) - ofs), Result) then Exit(gOutOfScopelDate); if not TryEncodeTime( // ((Ord((pSrc + 11)^) - ofs) * 10) + (Ord((pSrc + 12)^) - ofs), // ((Ord((pSrc + 14)^) - ofs) * 10) + (Ord((pSrc + 15)^) - ofs), // ((Ord((pSrc + 17)^) - ofs) * 10) + (Ord((pSrc + 18)^) - ofs), // 0, // Time) then Exit(gOutOfScopelDate); Result := Result + Time; end;

With https://www.delphihtmlcomponents.com/ the sky is the limit. Just an example for selecting year/quartal/month/week/last 4 weeks/last 12 months/5 years (of course, you have to build your own html/css/scripting, but the result is unique)

@Dalija Prasnikar Aeauhm, look like it's UFO Technology for me 😄

@FPiette not if it's ipv6

@Bill Meyer the combo offer takes me to an only digital purchase page

How?

@emailx45 Why are you concerned about what value he uses for zero date? There must be a reason for that, for example the REST endpoint he talking to does not accept dates before 1.1.1901. I don't understand your rage nor your comic book.

Yes, remove "Dummy", and maybe Result := Result + Encodetime()? Also, you are ignoring time zones, but it is not necessary a problem for you.

Are you sure? Never seen that.

Are you sure you linked the right article? Because it has not much to do with your questions.

It is then like Lajos said. And it will also be compatible with the faulty component.

Keep in mind that DBMSes might store DateTime in different formats, so if you need to use those values on SQL Level chose an own format.

You can't save duration into a datetime value, ie. you could, but that makes not much sense.

@Rollo62 right, libreoffice can convert "C:\Program Files\LibreOffice\program\soffice.exe" --convert-to xlsx "C:\input_path\file.xls" -outdir "C:\output_path"

so, what database is that? does it have "views"?

Since when does inherited work on properties? "Inherited Data". And where else except the obvious? Documentation? I was annoyed that I could not set FData as it is private so I gave him an "inherited" in anger and fury and the compiler wasn't complaining. 😮 TTreeNodeHelper = class helper for TTreeNode private function GetNodeData: TNodeData; procedure SetNodeData(const Value: TNodeData); public property Data: TNodeData read GetNodeData write SetNodeData; end; function TVariantenTreeNodeHelper.GetNodeData: TNodeData; begin Result := inherited Data; end; procedure TVariantenTreeNodeHelper.SetNodeData(const Value: TNodeData); begin inherited Data := Value; end;

@Lars Fosdal In this case I'm overriding the Data property, so this is the only way to set/get them.

Thx. The gas prices. 😉