随笔分类 - delphi
摘要：procedure TForm11.cxbtn1Click(Sender: TObject);var T: DWORD;begin T := GetTickCount; MakeTree(kbmMemTable1, cbb1); lbl1.Caption := Format('MakeTree所用时
阅读全文
摘要：active control 是当前窗口获得焦点的控件。 WM_NEXTDLGCTL是一个消息。 perform(WM_NEXTDLGCTL,0,0)是把当前焦点移到下一个控件。 if not (active control is TDBGrid) then 窗口具有active control 属
阅读全文
摘要：mp1: TMediaPlayer; mp1.FileName := ExtractFilePath(Application.Exename)+'凉凉.mp3'; mp1.Open; mp1.Play; 可参考 http://www.cnblogs.com/pchmonster/archive/20
阅读全文
摘要：ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名 ExtractFileName() 从文件名中抽取不含路径的文件名 ExtractFilePath() 从文件名中抽取路径名 ExtractFileDir() 从文件名中抽取
阅读全文
摘要：MySQL安装目录下lib子目录中的libmysql.dll文件拷贝至c:/windows/system32（系统不在c盘的请转至对应目录），重新启动Delphi XE，按照上面的步骤测试连接，你会发现还是出现无法正确初始化数据库驱动的问题。最大的弯路就是使用的是安装版的MySQL。你只要使用解压版
阅读全文
摘要：procedure TForm6.btn8Click(Sender: TObject);begin //通过kbmmemsql查询 ds1.DataSet := kbmsql1; cxGrid1DBTableView1.DataController.DataSource := ds1; try kb
阅读全文
摘要：procedure TForm6.btn3Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //更新 cxGrid1DBTableView1.D
阅读全文
摘要：procedure TForm6.btn5Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //删除 cxGrid1DBTableView1.D
阅读全文
摘要：procedure TForm6.btn4Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //查询 cxGrid1DBTableView1.D
阅读全文
摘要：procedure TForm6.btn6Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField; id:Integer;begin //循环比较最小值 cxGr
阅读全文
摘要：kbmtbl1.EmptyTable;
阅读全文
摘要：//建表 kbmtbl1 := TkbmMemTable.Create(Self); ds1.DataSet := kbmtbl1; kbmtbl1.FieldDefs.Clear; kbmtbl1.FieldDefs.Add('Id', ftInteger, 0, False); kbmtbl1.
阅读全文
摘要：procedure TForm6.btn2Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField; i,Id:Integer;begin //插入 cxGrid1
阅读全文
摘要：BUILD =COMPILE + LINK = RESULT IS EXE COMPILE = COMPILE = RESULT IS DCU
阅读全文
摘要：TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 1、CommaText 2、Delimiter &DelimitedText 3、Names &Values &ValueFromIndex 先看第一个：CommaTe
阅读全文
摘要：function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; rfReplaceAll：全部替换rfIgnoreCase：忽略大小写 For Example： var a
阅读全文
摘要：^: 指针 @: 取址 #: 十进制符 $: 十六进制符
阅读全文
摘要：下面的关键字不能被重新定义或用作标志符：and array as asm begin case class const constructor destructor dispinterface divdo downto else end except exports file finalizatio
阅读全文