2009 年 2月 12 日随笔档案 - 万一

2009年2月12日

摘要：有点大, 进入看吧. 阅读全文

posted @ 2009-02-12 22:21 万一阅读(5774) 评论(4) 推荐(0) 编辑

摘要：先看一段程序, 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文

posted @ 2009-02-12 18:15 万一阅读(18356) 评论(7) 推荐(3) 编辑

Delphi 2009 新增的一个小函数: SysUtils.ByteLength

摘要： procedure TForm1.FormCreate(Sender: TObject); var str: string; begin str := '万一'; ShowMessageFmt('%d, %d', [Length(str), ByteLength(str)]); {2,4} end; 阅读全文

posted @ 2009-02-12 15:04 万一阅读(7579) 评论(8) 推荐(1) 编辑

多线程编程(7) - 从 CreateThread 说起[续五]

摘要： function CreateThread( lpThreadAttributes: Pointer; {安全设置} dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; dwCreationFlags: DWORD; var lpThreadId: DWORD... 阅读全文

posted @ 2009-02-12 12:31 万一阅读(12381) 评论(4) 推荐(3) 编辑