Главная страница | назад





Article #21564: Initializing an array or record to null.

Question:
How Do I initialize an array or record to null?

Answer:
By using the FillChar procedure. Here is an example:


procedure TForm1.Button1Click(Sender: TObject);
type
  TIntRec = record
    i1: integer;
    i2: integer;
    i3: integer;
    i4: integer;
    i5: integer;
  end;
var
  IntArray: array[0..4] of integer;
  i: integer;
  s: string;
  IntRec: TIntRec;
begin
  // the array:
  FillChar(IntArray,SizeOf(IntArray),0); // if you comment out this line, you will have random values in the array
  for i := low(IntArray) to high(IntArray) do
    s := s+IntToStr(IntArray[i]);
  form1.Caption := 'IntArray: '+s;
  // the record:
  FillChar(IntRec,SizeOf(IntRec),0); // if you comment out this line, you will have random values in the record
  form1.Caption := form1.Caption+' '+'IntRec: '+IntToStr(IntRec.i1)+IntToStr(IntRec.i2)+IntToStr(IntRec.i3)+IntToStr(IntRec.i4)+IntToStr(IntRec.i5);
end;

Last Modified: 05-APR-00