delphi程序学习笔记,持续更新

《delphi程序学习笔记,持续更新》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi程序学习笔记，持续更新1.导出excel表gridtoexcel(frm_gridoilcard.StringAlignGrid1);2.导出txt表gridtotxt(frm_gridoilcard.StringAlignGrid1);3.退出Self.Close;或Close;4.弹出警告框sysalert('xxxxxx');Exit;5.数据库多条件查询（判断每个条件是否为空或是否符合某个条件）cleargrid(strnglgngrd1);txtSQL:='selectx1,x2,x3from表where1=1'

2、;ifxx1.Text<>''thenbegintxtSQL:=txtSQL+'andx1='''+safesql(xx1.Text)+'''';end;ifxx2.Text<>''thenbegintxtSQL:=txtSQL+'andx2='''+safesql(xx2.Text)+'''';end;ifxx3.Text<>''thenbegintxtSQL:=txtSQL+'andx3='''+safesql(xx3.Text)+'''';end;6.上一页pageud(rbtn_previous);7.下一页pageud(rb

3、tn_next);8.输入框清除RzEdit.Clear;9.trim就是去掉整个字符串前后的空格iftrim（combobox.text)=a[i].namethena[i].count:=a[i].count+1;选中combobox中的备选项后统计加1b[i].name:=trim(edit.text)将edit中的输入内容付给b[i].name这两句中trim的作用：iftrim（combobox.text)=a[i].namethen先去掉头尾的空格再比较，防止因为头尾的空格影响比较结果；b[i].name:=trim(ed

4、it.text)先将Edit.Text中的头尾空格去掉再保存。