设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索

Delphi乐园 SysUtils 中其他 PChar 函数: StrPas、StrNew、StrDispose、Str

发布者: youqingxue521 | 发布时间: 2012-4-16 23:48| 查看数: 2572| 评论数: 0|帖子模式

//StrPas: 转换 PChar 为 string; 现在可以直接赋值, 很少用了.
var
  p: PChar;
  s: string;
begin
  p := 'Delphi';
  s := StrPas(p);
  ShowMessage(s); {Delphi}
end;



//StrNew、StrDispose: 建立与销毁 PChar.
var
  p: PChar;
begin
  p := StrNew('Delphi');
  ShowMessage(p); {Delphi}
  StrDispose(p);
end;



//StrFmt、StrLFmt: 针对 PChar 的格式化函数
var
  buf: array[0..255] of Char;
  p: PChar;
begin
  p := StrFmt(buf, '%d, %d', [123, MaxInt]);
  ShowMessage(buf); {123, 2147483647}
  ShowMessage(p);   {123, 2147483647}

  p := StrLFmt(buf, 9, '%d, %d', [123, MaxInt]);
  ShowMessage(buf); {123, 2147}
  ShowMessage(p);   {123, 2147}
end;



//StrNextChar; 因为 PChar 支持加减运算, 这个函数很少用
var
  p: PChar;
begin
  p := '12345';
  p := StrNextChar(p);
  ShowMessage(p);      {2345}
end;



//StrCharLength: 一个 Char 的长度
var
  p: PChar;
  i: Integer;
begin
  p := 'Delphi';
  i := StrCharLength(p);
  ShowMessage(IntToStr(i)); {1}
end;


该贴已经同步到 youqingxue521的微博

最新评论

空间、域名、优惠稳定。香港空间1元,美国2元。

手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

GMT+8, 2016-10-23 02:18

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

公网安备 14090202000504号

回顶部