摘要：
#pragma comment(lib,"d3d9.lib")#pragma comment(lib,"d3dx9.lib")#pragma comment(lib,"winmm.lib")#include "windows.h"#include #include #define D3DFVF_... 阅读全文
随笔档案-2011年07月
edit编辑框只能输入数字和一个小数点
2011-07-05 19:44 by 李龙江, 368 阅读, 收藏, 编辑
摘要：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin ifnot(Key in [#48 .. #57, #8, #46]) then//#48-#57[0-9],#8[删除键],#49[小数点] Key :... 阅读全文
Indy IdHttp get Gb2312乱码的解决
2011-07-04 14:43 by 李龙江, 2416 阅读, 收藏, 编辑
摘要：
procedure TForm1.Button1Click(Sender: TObject);var ss: TStringStream; url: string;begin url := 'http://www.hao123.com'; ss := TStringStream.Create... 阅读全文
