Leaderboard

https://github.com/Pigrecos/TensorFlow.Delphi TensorFlow.Delphi provides a Delphi(Pascal)Standard binding for tensorflow It aims to implement the complete Tensorflow API in Delphi which allows Pascal developers to develop, train and deploy Machine Learning models with the Pascal Delphi(porting to free pascal in the future). Note: This is a work-in-progress. please treat it as such.Pull request are welcome

I would really suggest that you postpone messing with pointers until you have a better understanding of the language. Use an array or a TList instead; They perform better. Also, objects aren't really suited for double-linked lists as you will need a full (but empty) object for the head node. That said, the problem appears to be that you aren't aware that an object reference is itself a pointer and that local variables are temporary and allocated on the stack. Thus... Tmp^.Next := @Node ...assigns the address of the Node pointer (and not the address of the Node object) to the Next field. The correct statement would look more like this: Tmp.Next := Node; Notice that the dereference operator (^) is optional so I didn't use it. I think it often just makes the code harder to read.

Hello to all, I have released a new version of wrapper library, with many improvements, and instructions for build on Linux, too. https://github.com/gidesa/ocvWrapper46

Another man's struggles with AI generated code. https://mastodon.gamedev.place/@badlogic/110139794125541730

Here is a dirtier hack that shouldn't require overriding WndProc at all (untested!): procedure TForm12.cmniOpenRecentAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState); begin // pop the HDC state that TForm saved... RestoreDC(ACanvas.Handle, -1); // Prevent the OS from drawing the arrow... ExcludeClipRect(ACanvas.Handle, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom); // save the new state so TForm will restore it... SaveDC(ACanvas.Handle); end; procedure TForm12.cmniOpenRecentDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin ... // OnAdvancedDrawItem is fired after OnDrawItem, so don't exclude here... // ExcludeClipRect(ACanvas.Handle, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom); end;