//在 delphi 新版中, char 已经是双字节了。故应该重新自己写一个函数，取名为 FillByte ，才无歧义。

procedure TForm1.Button2Click(Sender: TObject);

// 功能，将 Buff 数组快速填充为一个值，如 65

const

  MaxLen = 1024;

var

  Buff: array [0 .. MaxLen] of byte;

  p: PByte;

  i: integer;

begin

  p := @Buff[0];

  // 1 . 初学者写法。

  for i := 0 to MaxLen do

  begin

    Buff[i] := 65; // 如果 Buff 是 delphi 的 string 类型

    // 则 Buff[i] 会有一个定位元素的函数调用，代码效率降低了。

  end;

  // 2. 进阶者写法，也可以称之为明白人写法。

  // 此写法清晰明白地使用了指针，是常用的方法。

  // 即使 Buff 为 delphi 的 string 类型，仍然高效。

  for i := 0 to MaxLen do

  begin

    p^ := 65;

    inc(p);

  end;

  // 3. 怪异用法,这是语法特性， c 语言中也有这样的写法

  // 可以少写代码，省事。效率与方法2相当。

  for i := 0 to MaxLen do

    p[i] := 65;

end;

procedure TForm1.Button1Click(Sender: TObject);

// 功能，将 Buff 数组快速填充为某一个值，如 65 (16 进制0x41 )

const

  MaxLen = 1024;

var

  Buff: array [0 .. MaxLen] of byte;

  PB: PByte;

  PI: PInt64;

  D: int64;

  i, Count: integer;

begin

  // 方法4，高级用法。

  // 充分利用寄存器的长度，一次填充8个 Byte

  // 此写法综合评比最优写法。既高效，又灵活跨越各平台。

  PB := @Buff[0];

  PI := PInt64(PB);

  D := $4141414141414141; //

  Count := (MaxLen + 1) div 8;

  for i := 0 to Count - 1 do

  begin

    PI^ := D;

    inc(PI);

  end;

  // 填充剩余的位置

  Count := (MaxLen + 1) and $7; // 等同于 MaxLen mod $7;

  PB := PByte(PI);

  for i := 0 to Count - 1 do

  begin

    PB^ := $41;

    inc(PB);

  end;

end;

procedure TForm1.Button3Click(Sender: TObject);

// 功能，将 Buff 数组快速填充为某一个值，如 65 (16 进制 0x41 )

const

  MaxLen = 1024;

var

  Buff: array [0 .. MaxLen] of byte;

  p: pointer;

  i, Count: integer;

begin

  // 方法5 ，骨灰级写法

  // 惊天地，泣鬼神，为了效率，啥也不顾了。

  // 此为宇宙中效率最高写法，可惜，跨平台或有困难。

  Count := (MaxLen + 1) div 4;

  p := @Buff[0];

  asm

    cld;

    mov eax,$41414141; // 因为是32位，所以4个字节

    mov ecx,count;

    mov edi,p;

    rep stosd;

  end;

  Count := (MaxLen + 1) mod 4;

  if Count > 0 then

    asm

      cld

      mov eax,$41;

      mov ecx,count;

      mov edi,p;

      rep stosb;

    end;

end;