随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

const
  P1: PChar = 'CodeGear';
  P2: PChar = 'Delphi';
var
  S: array[0..15] of Char;
begin
  StrCopy(S, P1);
  StrCat(S, ' ');
  StrCat(S, P2);
  ShowMessage(StrPas(S)); {CodeGear Delphi}
  ShowMessage(S);         {CodeGear Delphi}
end;

posted on 2008-02-11 19:39  万一  阅读(...)  评论(...编辑  收藏