一、下载OnnxruntimeGitHub-microsoft/onnxruntime:ONNXRuntime:cross-platform,highperformanceMLinferencingandtrainingaccelerator注意win7运行时会出错。可以下载 https://pan.baidu.com/s/18gIMP7r3lZAmgUTj4H2ugA?pwd=6666 编译好的可在win7下使用。还

为lazarusTDataSet增加类似TClientDataSet的Delta功能适用于所有TDataSet只需在unit的uses添加DataSetDelta。BufDataset1.ActivateMonitoring(true)//启动Delta功能BufDataset1.GetActionSQL('test');//根据Delta生成SQL继续开源：https://github.com/szlbz/DataSetDelta.gitun

遥想当年，最牛最流行的两个编程IDE是Delphi和VisualBasic，结果这么多年下来，VB已经没有往昔的热度，而Delphi也已经消亡在历史的长河中。不过Delphi的精神没消失，lazarus坚守delphi的编程风格，散发delphi最后的余辉。Lazarus介绍Lazarus是一个基于FreePascal的跨平台集成开发环境（I

lazarus交叉编译虽然lazarus可以安装在windows,linux,macos。。操作系统上面，但是交叉编译有其独到的方便之处，比如，可以在windows上用lazarus编译所有OS平台的程序。1）下载并编译fpcupdeluxe下载地址：https://github.com/LongDirtyAnimAlf/fpcupdeluxe.git下载完成，用lazarus编译好

一、下载ffmpeg-delphi-pascal-headers下载地址Headers|FFVCL–DelphiFFmpegVCLComponents(VideoEncoderandVideoPlayer)下载 Releases·BtbN/FFmpeg-Builds·GitHub 下载与上面版本对应的DLL库二、引用单元libavformat,libavcodec_codec,libavcodec,FFUtils

uses  DataSet.Serialize, fpjson；varobj:tjsonobject;procedureTForm1.Button1Click(Sender:TObject);beginuniquery1.Close;uniquery1.SQL.clear;uniquery1.sql.Add('selecttop2*fromtunit');uniquery1.Open;memo1.text:=uniquery1

最近有网友反馈linux使用官方安装包安装的lazarus，按尝试解决linux下Lazarus2.2.0版代码编辑器和SynEdit不支持中文输入的Bug（2024.02.27解决《修正LinuxLazarusIDE代码编辑器中文输入》后用fpcupdeluxe重新编译lazarus时出错的Bug）-秋·风-博客园(cnblogs.com)，修改后重构laz

TQFGridPanelComponent控件支持在单元格绑定可视控件，运行时单元格绑定的控件会吸附到相应的单元格里。|姓名|[#][C2]单位|办公地址|备注||:-:|:-:|:-:|:-:||秋风6|[bm4]检测中心1|南山建工村1|||秋风7|检测中心2|<COMPNAME=name3>[#][c4]南山建工村2|||[c2]地址|<COMPNAME=n

YoloV4可以用opencv4.0以上加载和使用。但是Lazarus只能支持到opencv2.4.13。所以不能直接使用yolov4，后来只好用VC写了一个dll，调用Opencv4.81再调用YoloV4。在Lazarus下调用这个dll就可以用yolov4了，方法如下一、声明dll库//初始化Yolo库functionYoloInit(cfgfile:pchar;wfil

用lazarus编写的类RichView显示控件初步支持markdown格式的表格，并增加单元格字体颜色等功能，可在信创电脑使用，功能慢慢添加中。github：https://github.com/szlbz/QFComponent其中图像格式支持：bmp,jpg,png等 除以上格式外，还支持单、双分割线等

一、在要回调的单元加一个回调类typeTMyCallback=procedure(X,Y:Integer;...其它参数) ofobject;二、在单元TMyClass=class()中加下面的回调过程变量publicFMyCallback:TMyCallback;三、在要使用回调的过程、事件、函数中加procedureTMyClass.click(Sender:TOb

参考自带例子C:\lazarus\examples\propstorage1]放一个IniPropStorage1到界面上，将它的IniFileName设置为config.ini 2]类似地，拖一个XMLPropStorage1到界面上，将它的FileName设置为config.xml 3]添加要保存的属性 

FilterComboBox1只过滤当前目录下的文件名，不过滤目录名，也不过滤子目录名拖一个FilterComboBox1,ShellListView1到界面上1]将FilterComboBox1的ShellListView设置为ShellListView12]添加过滤文件类型 3]还须设置ShellListView1的根目录Root 

lazarus在银河麒麟国产操作系统linux下，使用TListView使用TListViewvsIcon样式，文本长了会是这样效果尝试设置OwnerDraw属性为True自己定义方法DrawItem不起效果也尝试修改TCustomListView源代码也不起效果，搞了半天，后发现坑了，没仔细看帮助WhensettoTrue,theOn

参考秋.风https://www.cnblogs.com/qiufeng20141、修正编译出错的bug。打开frxDsgnIntf.pas，第1243行：withGetTypeData(GetTypeData(PropertyList[i].PropType).CompType)^do改为：{$IFDEFlinux}withGetTypeData(GetTypeData(PropertyList[i]^.PropType)^.Co

 Delphi我写的类似功能带历史记忆，并模糊带出功能的Edit 先在ListBox1的Items里添加数据 再拖一个ListFilterEdit1要界面上，设置它的 即可看到过滤效果 同样适合CheckListBox1 

参考https://www.cnblogs.com/qiufeng2014/p/17388138.html链接：https://pan.baidu.com/s/1ayzgDbXjgXBnw-jM1FR4gA提取码：ogqzunitUnit1;{$modeobjfpc}{$H+}interfaceusesClasses,SysUtils,memds,db,Forms,Controls,Graphics,Dialogs,DBGrids;type{TForm1

与(18)Lazarus学习ListViewFilterEdit1过滤ListView1数据 类似1]界面上添加一个TreeView1，双击添加好树结点 2]拖一个TreeFilterEdit1到界面上，设置它的FilteredTreeview 可以设置是不是大小写敏感   最好设置它的Text为空，这样一开始就可以看到所有树结点 pro

参考了Yang杨。老师的代码，原来是delphi代码，因为个人转到lazarus，所以进行移植了。方法如下：下载最新的CNVCL，CnNative,要修改一下，其它引用单元注释掉{.$ICnPack.inc}//加个点CnNative，加个定义{$DEFineSUPPORT_UINT64} 其它可以参考原文：https://www.cnblogs.com/Yang-YaChao/p/1

01]下拉ComboBox1选择  参考：C:\lazarus\examples\gridexamples\gridcelleditorprocedureTForm1.StringGrid1SelectEditor(Sender:TObject;aCol,aRow:Integer;varEditor:TWinControl);beginif(aCol=3)and(aRow>0)thenbegin//哪些单元格显示Comb

参考https://blog.csdn.net/bq_cui/article/details/134259372简介在某些数据操作需求特别简单的情况下，我们希望不要安装任何数据库，甚至连一个驱动dll都不要，因为这些驱动dll可能涉及到版本甚至跨平台问题。这种简单需求，可以直接使用csv文件作为数据集来进行增查删改操作。注意，这

近日和樵夫交流时发现unidac在aarch64linux交叉编译UniProvider.pas出错：UniProvider.pas(1040,1)Error:Compilationraisedexceptioninternally奇怪的是其他CPU类型是正常的。樵夫的解决办法：1、修改UniProvider.pas,添加{$ifFPC_FULLVERSION<30301}TEnumerator

近日和高勇交流中发现，以下代码在delphi能编译及正确执行。procedureTForm1.Button2Click(Sender:TObject);vari:integer;beginTThread.CreateAnonymousThread(procedurebeginsleep(3000);TThread.Synchronize(TThread.CurrentThread,proced

procedureTForm1.Edit1KeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginif(key=40)and(listbox2.Items.Count>0)andlistbox2.Visiblethenbegin//defines.icnVK_DOWN=40;ListBox2.SetFocus;ListBox2.ItemIndex:=0;

参考：VCL下ListBox自画,Lazarus也一样usesLCLType; ListBox的两个设置：自画事件：ListBox1DrawItemprocedureTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;ARect:TRect;State:TOwnerDrawState);beginWithListBox1.CanvasDoBeginBrus