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;
转载于:https://my.oschina.net/hermer/blog/319523