天 天空4567 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-17 #1 如何清空一个二维的结构数组（每个数组元素是一个记录，含多个字段），以备复用。 谢谢。
J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-17 #4 procedure TfmInputJDKPB_Edit.btn1Click(Sender: TObject); var aryABC: array[0..10,0..10] of Integer; I,J: Integer; begin inherited; for I := 0 to 10 do for J := 0 to 10 do aryABC[I,J] := 0; end;
procedure TfmInputJDKPB_Edit.btn1Click(Sender: TObject); var aryABC: array[0..10,0..10] of Integer; I,J: Integer; begin inherited; for I := 0 to 10 do for J := 0 to 10 do aryABC[I,J] := 0; end;
D duhai_lee Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-17 #5 最笨的办法就是循环清空。·· 用fill函数试试， 不过得先定义一个空得结构。 然后初始化试试。
G geluyx Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-17 #6 procedure TForm1.Button1Click(Sender: TObject); var aryABC: array[0..10,0..10] of Integer; begin FillChar(aryABC,SizeOf(aryABC),0); end;
procedure TForm1.Button1Click(Sender: TObject); var aryABC: array[0..10,0..10] of Integer; begin FillChar(aryABC,SizeOf(aryABC),0); end;
天 天空4567 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-18 #7 这个二维的结构数组（每个数组元素是一个记录，含多个字段，每个字段的数据类型都不同），也可以这样直接写0以清空吗？
天 天空4567 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-18 #9 数组清空以后是要备用的。如果没清空会造成计算数据有误。你的ZeroMemory后还能用吗？
