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;