delphi字符串转换为char数组
var
arrChar : array [0..4] of Char;
b : Byte;
s : string;
begin
s := 'Test';
Move(Pointer(s)^, arrChar, Length(s)); //string to array of char
ShowMessage(arrChar);
b := Ord(s[1]); //First byte string to one single byte
ShowMessage(Char(b));
end;
相关文档：
转自：http://www.52delphi.com/List.asp?ID=597&Page=1
核心提示：函数需要 uses Direct3D9,D3DX9; 偶然发现一个函数可以直接保存表面到文件1！所以修改了一下，函数为：...
procedure CaptureScreen(Const FileName: string);
var
BitsPerPixel: Byte;
pD3D: IDirect3D9;
pSurface: IDirect3DSurface9;
......
//采用递归方法，D7编译调试通过。
//数据采用ADOQuery读取，并将数据暂存在一个动态数组中，树形列表控件为TreeView。
procedure TForm1.LoadTreeInfo;
type
TInfo = record
ID, //代码
Name, //名称
&nb ......
将远程控制应用于教学中，已成为目前计算机化教学的重要手段。一定有很多的网虫想了解这种网络教学方式的编程原理吧。在此我们就以一个简单的远程控制程序作为示例，说明这种网络编程的基本原理。本程序以Delphi编程为例。
其实该程序的工作机制很简单，受控方运行一个程序，用于侦听端口并接收数据包，而主控方通过� ......
delphi 注册 com 对象的方法
procedure TForm1.Button3Click(Sender: TObject);
var
Sd: TSecurityDescriptor;
begin
InitializeSecurityDescriptor(@Sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@Sd, true, Nil, false);
RegSe ......
1、TStringList支持的最大行数是多少？（http://topic.csdn.net/t/20060209/14/4547405.html）
楼主结论：“TStringList的LoadfromFile函数应该只能读取15万行以内的数据，但TStringList和TList的Add函数可以加到几百万行（甚至更多）也不会出错。程序出错的原因应该是Add非法内存指针导致的，正如tanlim(求学者) &nb ......
