随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

问题来源: http://www.cnblogs.com/del/archive/2008/11/23/1339323.html#1379150

var
  bs: array[0..25] of Byte;
  s: string;
  i: Integer;
begin
  for i := 0 to Length(bs) - 1 do bs[i] := 65+i;
  s := string(StrPas(PAnsiChar(@bs)));
  ShowMessage(s); {ABCDEFGHIJKLMNOPQRSTUVWXYZ}
end;

posted on   万一  阅读(5056)  评论(22编辑  收藏  举报


点击右上角即可分享
微信分享提示