Delphi实用技巧经验(图文).docVIP

‘’空 ‘ ’空格 空格调整对齐方式 窗体的visible属性设置相当于showmodal aq一行一行执行，所以要把一些语句写在循环里（除了在grid添加数据） Caption，Text：显示名 Name：系统名 Sql表：create,drop,alter 数据：insert，delete，update 数据模块在uses里时用文件名，调用时用系统名 全局变量:用于不同表单间的传值。如在public中定义变量a，使用时把值赋给form.a，具体可参考设置第一列为下拉式菜单 Delphi设置 切换窗体project-options-forms 字体tools-options-display 问题处理 属性栏消失按F11 Image提示“unknown picture file extension(.jpg) ”uses中加 Jpeg 重建某个窗体（如unit2）：新建unit1unit2，退出再重建，使之产生dcu文件，再将这三个文件复制到所需目录下，同时删除history文件夹 DBGrid某列的小数位数（at默认会去掉末尾的0，如1.00-1） TFloatField(dbGrid1.Columns[2].Field).DisplayFormat := 0.00; 函数 定位posex(str1, str2,[n]) 在str1在str2从n的位置开始的位置，默认从1开始，输出int类型，必须在uses中加入StrUtils posex(b,abcabcabc,3)=5 复制copy(str,2,3)，输入输出都是str，如copy(inttostr(1234),2,2)=23 长度length(str) 输出int 重复dupestring(chr(9),10) 将Tab重复10次，必须在uses中加入StrUtils 左取leftstr(str,2)，rightstr(str,2) ，必须在uses中加入StrUtils 保留小数位数（2位），会四舍五入 FormatFloat(0.00,1.111)，str类型 格式 小数 小数定义成real，转换floattoint，inttofloat； floattostr ，strtofloat Asfloat 验证trystrtofloat（同理trystrtoint） Var s: string; x:double; begin s:=123.45x; if not trystrtofloat(s,x) then showmessage(数据类型转换出错); end 保留小数位数（2位），会四舍五入 FormatFloat(0.00,1.111)，str类型 DBGrid某列的小数位数（默认会去掉末尾的0，如1.00-1，下面语句只改变DBGrid显示格式，若从at取出数据给edit，显示的还是去0，但是sql表中定义成money类型而delphi中提交如1，则sql表中自动转换为1.00） TFloatField(dbGrid1.Columns[2].Field).DisplayFormat := 0.00; 日期 定义成date1:TDateTime，转换用datetostr, strtodate [ if not TryStrToDate(str,date1) then...] AsDateTime 常见键值 vbKeyBack 8 BACKSPACE 键 vbKeyTab 9 TAB 键 vbKeyReturn 13 ENTER 键 1.3 MB_ICONQUESTION 　　 出现「问号」图示 1.4 MB_ICONSTOP 或 MB_ICONERROR 或 MB_ICONHAND 　　 出现「红色X」图示 2. 指定讯息视窗出现的按钮 2.1 MB_ABORTRETRYIGNORE 　　 出现「Abort」「Retry」「Ignore」三个按钮 2.2 MB_OK 　　 出现「Ok」按钮，为预设值。 2.3 MB_OKCANCEL 　　 出现「Ok」「Cancel」两个按钮 2.4 MB_RETRYCANCEL 　　 出现「Retry」「Cancel」两个按钮 2.5 MB_YESNO 　　 出现「Yes」「No」两个按钮 2.6 MB_YESNOCANCEL 　　 出现「Yes」「No」「Cancel」三个按钮 3. 可指定预设Focus在哪一个按钮 3.1 MB_DEFBUTTON1 　　 指定focus在左边第一个按钮，这是预设值。 3.2 MB_DEFBUTTON2、MB_DEFBUTTON3、MB_DEFBUTTON4 　　 以此类推，指定focus在左边第二、三、四个按钮 4. 可指定是否