delphi杂记.docVIP

listbox从文件中读取列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+aaa.txt);ListBox1.Items.Add(Edit1.Text);//添加了一个项目ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+aaa.txt);删除项目ListBox1.Items.Delete(listbox1.itemindex);判断窗体是否已经打开iffrmPriceInputnilthen注意：有时窗体虽然已经关闭，但没完全释放，最好在该窗体关闭的CLOSE事件里加入frmPrintInput=nil;关闭MDI子窗口的方法在子窗口的OnClose事件处理过程中加入如下代码Action:=caFree;Delphi为一个Form的关闭行为指定了四种方式，分别是：caNone--禁止Form被关闭caHide--Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。caFree--Form被关闭，并且释放其占用的资源。caMinimize--Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。系统配置文件*.INI的操作头部要引用IniFiles1、声明变量IniFile:TiniFile;2、指明路径IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+option.ini);3、读取变量,注意变量有类型之分readstring,readinteger...等titleBMPFile:=IniFile.ReadString(TitleImage,FileName,);//IniFile.ReadString(组名,变量,默认值)IniFile.ReadIntegerIniFile.ReadBool4、写入或修改变量IniFile.WriteString(标题,变量1,值);5、用完后释放IniFile.Free;动态读取图象Image1.Picture.LoadFromFile(titleBMPFile);fastreport自定义函数的用法1、先在普通工程窗体上定义好函数2、在frreport控件的userfunction中写入ifansicomparetext(My_StrToRMB,Name)=0thenval:=My_StrToRMB(frparser.Calc(p1));//MY_STRTORMB是函数名//如果定义多个函数，就多来几个IF即可。在报表设计视图中就可以调用这个函数了。数组是这样定义的sbh:array[0..9999999,0..1]ofstring;treeview的用法//先定义项目序数和节点n:Integer;Node:TTreeNode;Node:=Tree1.Selected;if(Node=nil)or(Node.StateIndex=-1)thenExit;//一般可以把不作反应的列的stateindex定为-1n:=Node.StateIndex;Fields[]通过索引返回字段,要自己选择返回的类型!FieldByName()通过名字返回字段,要自己选择返回的类型!FieldValues[]通过名字返回字段的值,自动化类型!调用外部程序方法用ShellExecute，在USES段加入SHELLAPI，使用时如：ShellExecute(handle,open,c:/myapp/myapp.exe,-s,,SW_SHOWNORMAL);第一个参数为父窗口句柄；第二个参数为打开方式（OPEN，PRINT两种）；第三个参数为执行文件全路径；第四个参数为执行文件参数；第五个参数为执行文件开始运行时的初始目录；第六个参数为为执行文件运行方式(SW_HIDE,SW_MAXIMIZE,SW_MINIMIZE,SW_RESTORE,SW_SHOW,SW_SHOWDEFAULT,SW_SHOWMAXIMIZED,SW_SHOWMINIMIZED,SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_SHOWNOACTIVATE,SW_SHOWNORMAL);判断文件是否存在ifnotfileexists(db2.mdb.bak)then...判断按键ifKey=#13then//如果回车则。。。退出关闭窗口close;关闭程序：Application.Te