2014年7月24日

摘要: //Char 类型与其编码值的转换:var b: Byte; c: Char;begin b := Ord('A'); {返回: 65} b := Ord(#65); {返回: 65} b := Ord($41); {返回: 65} b := Ord(#$41); {返回: 65} b := Byt... 阅读全文
posted @ 2014-07-24 11:01 9111 阅读(1369) 评论(0) 推荐(0) 编辑
 
摘要: begin#E760FCA2FAE65266BDD1FF6C0EFFC3F393884C05FC3A6DD28ADC5FF4C7F1B33E9D61FBA87215DE6943704303AA7FC173C86C02EA311540C99B08DA852FB79A9D53A3CE14EF524D7D 阅读全文
posted @ 2014-07-24 10:42 9111 阅读(1509) 评论(0) 推荐(0) 编辑
 
摘要: 先说赋值://赋值方法1: 给直接量begin SetWindowText(Handle, '新标题');end;//赋值方法2: 定义它要的类型var p: PChar;begin p := '新标题'; SetWindowText(Handle, p);end;//赋值方法3: 转换成它要的类型... 阅读全文
posted @ 2014-07-24 10:40 9111 阅读(148) 评论(0) 推荐(0) 编辑

2012年9月6日

摘要: uses System.IOUtils;procedure TForm1.FormCreate(Sender: TObject);var S: string;begin { 三种方法结果一致: C:\Users\wy\AppData\Roaming } S := GetHomePath; ... 阅读全文
posted @ 2012-09-06 11:45 9111 阅读(240) 评论(0) 推荐(0) 编辑