摘要： 通过网盘分享的文件：connectnion学习V46.rar链接: https://pan.baidu.com/s/1TDGTDntyXCAWf3zLqInjeA?pwd=4mbs 提取码: 4mbs listbox2.Items.Add(FDMetaInfoQuery1.FieldByName(' 阅读全文

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

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

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

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