| | | | | |

2024年4月19日

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) 编辑

2024年4月18日

异常显示在Memo1里，而不是弹出对话框

摘要： try except on E: Exception do begin OutResltMemo.Clear; OutResltMemo.Text := E.Message; end; end; 阅读全文

posted @ 2024-04-18 08:40 涂磊阅读(15) 评论(0) 推荐(0) 编辑

2024年4月17日

delphi中Memo1中ListBox_keyWords代码补全

摘要： delphi中Memo1中ListBox_keyWords代码补全拖一个Memo1下拉ListBox到界面上，假设ListBox_keyWords，里已加载关键字最终效果： Memo1里输入关键字开头字母,自动带出ListBox_keyWords开头的关键字，选择好关键字，回车，将关键字全称输阅读全文

posted @ 2024-04-17 18:45 涂磊阅读(11) 评论(0) 推荐(0) 编辑