上一页 1 ··· 40 41 42 43 44 45 46 47 48 ··· 215 下一页
摘要: 当我第一次从 TClientDataSet 中读出图片数据时, 发现不是图片!慢慢观察发现是前面多了 8 个字节(前 4 个字节是 01 00 00 01, 估计是格式标识和头大小; 后 4 个字节是后面图片文件的大小), 去掉这个 8 个字节就是图片文件了.下面的例子先是检索了 20 个示例文件的所有图片字段, 并把其中的图片提取到指定文件夹;还把一个指定字段中的图片显示在了窗体上.//先在窗体... 阅读全文
posted @ 2010-01-23 19:32 万一 阅读(4918) 评论(1) 推荐(0) 编辑
摘要: 本例用到:TClientDataSet.Fields[]; { 字段集合; 它比 FieldList 有更多功能, 如可获取嵌套字段 }TClientDataSet.FieldList[]; { 字段列表; 它比 Fields 轻便, 如果只是取值用它快一些 }TClientDataSet.FieldByName(); { 根据字段名称获取字段对象; 获取一个字段对象时它比上两个快 }TClien... 阅读全文
posted @ 2010-01-22 21:40 万一 阅读(11828) 评论(7) 推荐(2) 编辑
摘要: 阅读全文
posted @ 2010-01-21 13:31 万一 阅读(5349) 评论(13) 推荐(0) 编辑
摘要: //放置控件: ClientDataSet1、DataSource1、DBGrid1、Button1, 然后procedure TForm1.Button1Click(Sender: TObject);begin { 添加字段 } with ClientDataSet1.FieldDefs.AddFieldDef do begin Name := 'ID'; DataType := ftIn... 阅读全文
posted @ 2010-01-21 10:29 万一 阅读(9313) 评论(5) 推荐(2) 编辑
摘要: TClientDataSet.Data { 数据的二进制格式的描述 }TClientDataSet.XMLData { 数据的 XML 格式的描述 }//先在窗体上放置 ClientDataSet1、Memo1 和三个按钮uses XMLDoc, IOUtils; { 分别提供 FormatXMLData 和 TFile.ReadAllText 函数 }{ 设定当前目录 }procedure TF... 阅读全文
posted @ 2010-01-20 13:24 万一 阅读(8289) 评论(0) 推荐(1) 编辑
摘要: 想学 TClientDataSet 是在 2009 年 5 月, 但当时学不动; 现在好了, 有源码了(DBClient.pas).希望这次学习能对其内存协调方式有所了解, 顺便学点数据库的知识.TClientDataSet 是一个内存数据集(说"数据表"对不住它), 其内存数据可存取到本地(*.cds 或 *.xml 格式).用 TDBGrid 可方便查看其内存数据, 但需要用数据源组件(如: ... 阅读全文
posted @ 2010-01-20 10:06 万一 阅读(7398) 评论(2) 推荐(1) 编辑
摘要: 当前程序所有可用的环境变量 = 系统环境变量 + 用户环境变量 + 当前程序环境变量.以前列出过一些, 但不全: http://www.cnblogs.com/del/archive/2009/02/22/1396164.html"系统环境变量" 与 "用户环境变量" 在: 我的电脑 - (右键)属性 - 高级 - 环境变量;"当前程序所有可用的环境变量" 在: IDE 菜单 - Tool... 阅读全文
posted @ 2010-01-19 22:00 万一 阅读(4212) 评论(5) 推荐(0) 编辑
摘要: 刚接触 Delphi 时, 曾以为 Pi 是个常量; 当我知道它是个函数时, 曾被触动.但 Pi 返回的不过是占 10 个字节的 Extended 类型, 后来竟发现一些对象也这样干, 譬如:function Clipboard: TClipboard; { Clipbrd }function Printer: TPrinter; { Printers }function Languages: T... 阅读全文
posted @ 2010-01-19 14:08 万一 阅读(8339) 评论(7) 推荐(0) 编辑
摘要: macrolen 给了这样一些数据, 说是用淘宝的 API 获取的 JSON 数据, 让我帮助解析:{"items_search_response":{"item_search":{"item_categories":{"item_category":[{"category_id":150708,"count":66},{"category_id":50002480,"count":93},{"c... 阅读全文
posted @ 2010-01-18 18:18 万一 阅读(13599) 评论(16) 推荐(0) 编辑
摘要: var DateTime: TDateTime;begin FileAge('C:\Windows\Notepad.exe', DateTime); ShowMessage(DateTimeToStr(DateTime));end; 阅读全文
posted @ 2010-01-18 13:45 万一 阅读(3447) 评论(1) 推荐(0) 编辑
上一页 1 ··· 40 41 42 43 44 45 46 47 48 ··· 215 下一页