Delphi 的字符及字符串[5] - 字符串与 Windows API

先说赋值:


//赋值方法1: 给直接量
begin
  SetWindowText(Handle, '新标题');
end;

//赋值方法2: 定义它要的类型
var
  p: PChar;
begin
  p := '新标题';
  SetWindowText(Handle, p);
end;

//赋值方法3: 转换成它要的类型
var
  str: string;
begin
  str := '新标题';
  SetWindowText(Handle, PChar(str));
end; //赋值方法4: 用字符数组
var
  arr: array[..] of Char;
begin
  arr := '新标题';
  SetWindowText(Handle, arr);
end;

再说取值:


//取值方法1: 用字符数组(经常被称作"缓冲区")
var
  arr: array[..] of Char;
begin
  GetWindowText(Handle, arr, );
  ShowMessage(arr); {Form1}
end;

//取值方法2: 使用 GetMem 给 PChar 分配内存
var
  p: PChar;
begin
  GetMem(p, ); {分配内存}
  GetWindowText(Handle, p, );
  ShowMessage(p); {Form1}
  FreeMem(p);    {释放内存}
end;

//取值方法3: 用 GlobalAlloc 分配全局内存(比 GetMem 慢)
var
  p: HGLOBAL;
begin
  p := GlobalAlloc(, ); {参数一给 0 或 GMEM_FIXED 表示分配的是固定内存}
  GetWindowText(Handle, PChar(p), );
  ShowMessage(PChar(p)); {Form1}
  GlobalFree(p);        {释放内存}
end;

//取值方法4: 直接使用 string; 需要先 SetLength, 然后再去除空白:
var
  str: string;
begin
  SetLength(str, ); {先设定 str 的长度}
  GetWindowText(Handle, PChar(str), );   {但此时 str 的长度是 255 啊!}   str := PChar(str); {这样可以得到实际长度的字符串}
  ShowMessage(str);  {Form1}
end;

定长字符串不是 #0 结束的, 和 API 不好兼容, 一般不用于 API 中.


上一篇:windows下脚本检测tomcat是否启动,没有启动则启动


下一篇:Catalog