摘要: procedure TForm6.btn5Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //删除 cxGrid1DBTableView1.D 阅读全文
posted @ 2017-03-12 10:27 夏天的西瓜君 阅读(295) 评论(0) 推荐(0) 编辑
摘要: procedure TForm6.btn4Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //查询 cxGrid1DBTableView1.D 阅读全文
posted @ 2017-03-12 10:27 夏天的西瓜君 阅读(328) 评论(0) 推荐(0) 编辑
摘要: procedure TForm6.btn6Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField; id:Integer;begin //循环比较最小值 cxGr 阅读全文
posted @ 2017-03-12 10:26 夏天的西瓜君 阅读(318) 评论(0) 推荐(0) 编辑
摘要: kbmtbl1.EmptyTable; 阅读全文
posted @ 2017-03-12 10:25 夏天的西瓜君 阅读(255) 评论(0) 推荐(0) 编辑
摘要: //建表 kbmtbl1 := TkbmMemTable.Create(Self); ds1.DataSet := kbmtbl1; kbmtbl1.FieldDefs.Clear; kbmtbl1.FieldDefs.Add('Id', ftInteger, 0, False); kbmtbl1. 阅读全文
posted @ 2017-03-12 10:24 夏天的西瓜君 阅读(203) 评论(0) 推荐(0) 编辑
摘要: procedure TForm6.btn2Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField; i,Id:Integer;begin //插入 cxGrid1 阅读全文
posted @ 2017-03-12 10:22 夏天的西瓜君 阅读(251) 评论(0) 推荐(0) 编辑
摘要: format := '数目#.####'; 阅读全文
posted @ 2017-03-11 14:38 夏天的西瓜君 阅读(553) 评论(0) 推荐(0) 编辑
摘要: BUILD =COMPILE + LINK = RESULT IS EXE COMPILE = COMPILE = RESULT IS DCU 阅读全文
posted @ 2017-03-11 14:37 夏天的西瓜君 阅读(1126) 评论(0) 推荐(0) 编辑
摘要: TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。 1、CommaText 2、Delimiter &DelimitedText 3、Names &Values &ValueFromIndex 先看第一个:CommaTe 阅读全文
posted @ 2017-03-09 10:37 夏天的西瓜君 阅读(450) 评论(0) 推荐(0) 编辑
摘要: function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; rfReplaceAll:全部替换rfIgnoreCase:忽略大小写 For Example: var a 阅读全文
posted @ 2017-03-07 20:44 夏天的西瓜君 阅读(407) 评论(0) 推荐(0) 编辑