delphi7.0学习经验积累.docVIP

delphi7.0学习经验积累?[原] ???? 2006年开始学习delphi一路以来的经验积累吐血大公开。若这些经验对你有所帮助，能使你少走些许弯路，恳请能告诉我，或若愿意和我分享经验，探讨vb、delphi、vc、asp问题请留下评论或email。本人email:boythl@163.com。用得不多。===================================================2006、10、11? 在制作DLL时，在最后一定要把要发布的函数列出来，不然调用时会程序初始化失败，无法进入；?exports FunctionName; MKDir(Path) 函数创建文件夹； 在创建数据库时，用户名需要设为Admin，改成txtx时发生了“无法启动应用程序。工作组信息文件丢失”的错误。 2006、10、12StrUnits单元中?DupeString 函数 = VB string函数? 重复N次某字符?PosEx可以从某个特定位置开始查找某字符?MidStr函数 = VB Mid函数?ReverseString函数 翻转字符串?StuffString函数 向一个字符串在某位置插入一个子字符串?RightStr 函数,从字符串最后取字符?StrRScan 字符最后次出现的指针 只有有序的数字和字母才能作为集合(sets),且个数不能超过255个. TStrings对象的NameValueSeparator属性可以设置TStrings对象的文本包含Name和Value,如a=1,设置NameValueSeparator:==可以使用getName等方法提取Name和Value 2006、10、17ItemProps属性可以控制valueeditlist控件显示下拉框,在使用时需要注意self.vldFields.Row-1,因为表头的Key value行index=0 procedure TForm1.vldFieldsClick(Sender: TObject);begin??? self.vldFields.ItemProps[self.vldFields.Row-1].EditStyle:=esPickList;??? //显示下拉框??? self.vldFields.ItemProps[self.vldFields.Row-1].PickList:= TargetFields;end; 2006、10、18今天发现在SQL中，若两文本字段其中一个文本字段为null(非)，另一个文本字段非Null则两个字段可通过等号检索到(F1=F2)，而若两个文本字段都为null时则等号检索不到，但用不等号也不能检索出来。很奇怪！！！ 2006、10、23只有在Richedit处于活动时才自动滚屏? 或发送EM_SCROLLCARET? sendmessage(self.rdtHistory.Handle ,EM_SCROLLCARET,0,0) 2006、10、24TIDUDPSERVER在设置DefaultPort之前必须设置Active为false,否则新端口无效.FlashWindow必须传入Application.Handle才能实现闪动标题栏? FlashWindow(self.Handle ,true);? FlashWindow(application.Handle,true); 2006、10、25可以设置动态控件数组，如chk:array of TcheckBox; 然后setlength即可；在动态创建数组时，必须设置控件的parent属性，一般为TWinControl类对象，如form1，否则控件无法显示。API中指针类型参数不能随便设为空，否则有可能引起地址访问失败。 2006、10、26AnsiStrRScan 函数可以从右边提取字符串,如: AnsiStrRScan(abcdefg,d) 结果=defg 2006、10、30控件的Perform方法很有用，可代替对该控件的sendmessge方法，如checkbox.perform(BM_SETCHECK, Ord(CheckIt), 0); 选中复选框在文件传输时使用TFileStream而非TMemoryStream可提高速度。速度可由200K提高到10M 2006、11、1在showmodule对话框窗体时不需要手动self.close关闭窗体，把button的ModaulResult设为mrOK会自动关闭窗体,且不能在formcreate中关闭 2006、11、3可以使用strtoint的报错信息来判断是否数字类型,也可以用trystrtoint函数,是数