摘要: TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取; 读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Bu... 阅读全文
posted @ 2013-05-20 23:30 万大侠 阅读(226) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}var P: Pointer;procedure TForm1.Button1Click(Sen.. 阅读全文
posted @ 2013-05-20 22:34 万大侠 阅读(196) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);v.. 阅读全文
posted @ 2013-05-20 22:33 万大侠 阅读(176) 评论(0) 推荐(0) 编辑
摘要: 来自万一老师代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); e... 阅读全文
posted @ 2013-05-20 22:30 万大侠 阅读(231) 评论(0) 推荐(0) 编辑
摘要: copy:http://hi.baidu.com/yunfanleo/blog/item/0c51d9cdbc0531550eb34558.htmlFormat是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,但并不多用,所以这里只对第一个介绍:function Fo 阅读全文
posted @ 2013-05-20 22:22 万大侠 阅读(289) 评论(0) 推荐(0) 编辑
摘要: Delphi DecodeDate和EncodeDate 拆分和聚合时间函数的用法SysUtilsprocedure DecodeData(Date: TDateTime; var Year, Month, Day: Word);DecodeDate打断TdateTime成为年月日的值。DecodeDate打断由Date参数说明的值成为年月日的值。如果TDateTime值是小于或等于0,那么返回的年月日值为0;这个例子使用一个按纽和两个标签,当按击按钮时,当前的日期和时间就会出现在两个标签的标题中显示。procedure TForm1.Button1Click(Sender: TObject) 阅读全文
posted @ 2013-05-20 21:50 万大侠 阅读(223) 评论(0) 推荐(0) 编辑
摘要: MSP430程序库<十五>Flash控制器 ... 阅读全文
posted @ 2013-05-20 14:34 万大侠 阅读(280) 评论(0) 推荐(0) 编辑
摘要: 一直用430的信息区记录需要保存的信息,但是一直苦于信息最初怎么先写进去。刚开始的时候,完全使用写flash操作把要写的数据写进去,所以那时很傻。后来想到了用汇编可以直接定义,于是用了一阶段。就像下边。ORG 0x1000DB 0x89DW 0x0065DB 9DW 500DF 1.0END把以上保存为*.asm文件,然后加入工程就好了,这样IDE编译的时候就可以直接在信息区写入数据了。不过我终于发现了更好的,上边这种方法有个最大的缺点就是,读数据还得利用地址来读,所以很麻烦。只需定义如下const unsigned char A@0x1000 = 89;const unsigned int 阅读全文
posted @ 2013-05-20 14:25 万大侠 阅读(262) 评论(0) 推荐(0) 编辑