title: How can I quickly clear a record of simple types?
body: <p>I have a structure defined like this:</p>
  
  <pre><code>const
    MaxSignalRecords=255;
  type
    TSignalRecord=record
     signal1  : integer;
     signal2  : integer;
     signal3  : integer;
     signal4  : integer;
     signal5  : integer;
     signal6  : integer;
     bsignal1 : Boolean;
     bsignal2 : Boolean;
     bsignal3 : Boolean;
     bsignal4 : Boolean;
     bsignal5 : Boolean;
     bsignal6 : Boolean;
    end;
  
  TListSignals = Array[0..MaxSignalRecords-1] of TSignalRecord;
  </code></pre>
  
  <p>This structure is used to  make thousands of calculations in an algorithm like this:</p>
  
  <pre><code>for i:=1 to 900000 do
  begin
    CleartheList(MyList);
    DotheMath(MyList);
    DotheChart(MyList);
  end;
  </code></pre>
  
  <p>I am looking for a fast way to initializate the values of my <code>TListSignals</code> to 0 and <code>false</code>.</p>
  
  <p>Now I am using this :</p>
  
  <pre><code>procedure ClearListSignals(var ListSignals:TListSignals);
  var
    i :Integer;
  begin
    for i := 0 to MaxSignalRecords - 1 do
    with ListSignals[i] do
    begin
     signal1   :=0;
     signal2   :=0;
     signal3   :=0;
     signal4   :=0;
     signal5   :=0;
     signal6   :=0;
     bsignal1  :=false;
     bsignal2  :=false;
     bsignal3  :=false;
     bsignal4  :=false;
     bsignal5  :=false;
     bsignal6  :=false;
    end;
  end;
  </code></pre>
  
  <p>How can I improve the performance of the <code>ClearListSignals</code> procedure?</p>