delphi char数组初始化

[yangdongxueC]

delphi中 字符数组 如何全部初始化为同一个字符，不用循环的话。

[NongCunGongLu]

var
  cArr: array[1..8] of Char;
begin
  FillChar(cArr, 8, Ord('a'));
end;

[pathletboy]

win32 api

FillMemory(@array[0],Length(array), $1);