SysUtils 中其他 PChar 函数: StrPas、StrNew、StrDispose、StrNextChar、StrFmt、StrLFmt、StrCharLength

//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;


 
   

SysUtils 单元下的公用函数目录

---