在TP下，fillchar过程在用于integer, word, longint数组时会出问题（请参考此帖:[url]http://www.programfan.com/club/post-143935-2.html[/url]），而fillword
过程只在Free Pascal中有，为了解决这个问题，我写了一个fillword过程:

procedure FillWord(var Destination; Count, Data: Word); assembler;
  asm
    LES DI, Destination
    MOV CX, Count
    MOV AX, Data
    CLD
    REP STOSW
  end;

用这个过程可以实现integer, word类型数组的非零值初始化.