| | | | | |

2024年4月19日

摘要：通过百度网盘分享的文件：connectnion学习V43.rar链接：https://pan.baidu.com/s/1yyhx5RlhUesPJRewXMKD0A 提取码：48cu listbox2.Items.Add(FDMetaInfoQuery1.FieldByName('COLUMN_NA 阅读全文

posted @ 2024-04-19 17:07 涂磊阅读(96) 评论(0) 推荐(0) 编辑

for down to 循环遇到真条件后，要及时退出，否一直到最后一后条件而不是第一个条件

摘要： for down to 循环遇到真条件后，要及时退出，否一直到最后一后条件而不是第一个条件 procedure TForm8.Memo1KeyPress(Sender: TObject; var Key: Char); var i,j:integer; aStr:string; begin 阅读全文

posted @ 2024-04-19 16:31 涂磊阅读(13) 评论(0) 推荐(0) 编辑

delphi tStringList 添加另一个 tStringList及不重复项

摘要： aStringList.CommaText:=ListBox1.Items.CommaText; aList:=TStringList.Create; aList.LoadFromFile('keyWord.txt'); aStringList.CommaText:=aStringList.Comm 阅读全文

posted @ 2024-04-19 10:50 涂磊阅读(50) 评论(0) 推荐(0) 编辑

LIstbox1双击编辑，回车提交修改

摘要：拖一个LIstbox1和Edit2到界面上 procedure TForm8.ListBox1DblClick(Sender: TObject); var ItemIndex: Integer; begin ItemIndex := ListBox1.ItemIndex; // 获取双击的项 if 阅读全文

posted @ 2024-04-19 08:43 涂磊阅读(20) 评论(0) 推荐(0) 编辑