...好吧 雖然沒啥還是備注一下以免失意

 

不OK的寫法

Var

  S:String ;
  p:PAnsiChar;

begin

  s:=  FormatDateTime('yyyymmddhhnnss', now) ;  //20160603010101
  p:=PAnsiChar(s);
  ShowMessage(p);                 //結果= 2

var
  S:AnsiString ;
  p:PAnsiChar;
begin
  s:=  AnsiString(FormatDateTime('yyyymmddhhnnss', now)) ;  
  p:=PAnsiChar(s);
  ShowMessage(p);     //結果= 20160603010101

 

PAnsiChar 要傳值必須先將String轉為AnsiString 

arrow
arrow
    文章標籤
    delphi
    全站熱搜

    kuraki5336 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄