你可以試試用FillChar procedure Var Buf: Array[0..1023] Of Byte ; begin FillChar(Buf,1024*SizeOf(Byte),0); end;