Fejl i database kode

Kode 

procedure TForm1.Add2ListBox;

  function Commarize(S: array of String): String;
  var
    I: Integer;
  begin
    Result := '';
    for I := Low(S) to High(S) do
    begin
      Result := Result + S[I];
      if I < High(S) then Result := Result + ', ';
    end;
  end;

begin
  with ADOTable2 do
  begin
    First; // Første record
    while not Eof do // Test om der ER en record
    begin
      DBListBox1.AddItem(
       Commarize([FormatDateTime('hh:mm:ss', FieldByName('Tidspunkt').AsDateTime),
                  FieldByName('AlarmOptionLyd').AsString,
                  FieldByName('AlarmOptionProgram').AsString,
                  FieldByName('AlarmOptionBesked').AsString,
                  FieldByName('AlarmOptionLås').AsString,
                  FieldByName('AlarmOptionLogAf').AsString,
                  FieldByName('AlarmOptionLuk').AsString,
                  FieldByName('AlarmOptionGenstart').AsString,
                  FieldByName('AlarmOptionForce').AsString]), nil);
      Next; // Næste record
    end;
  end;
end;

Rolig nu!! Det er jul og jeg har ikke set meget til en comp.

Dit problem med flere records skyldes at der I min oprindelige implementation af Add2Listbox ikke blev taget højde for at der kunne være flere records som matchede (idet jeg forudsatte at primærnøglen var Dato og ikke Dato+tid)...
Hvis du ændrer til flg. skulle alle records blive tilføjet...

Kode 

procedure TForm1.Add2ListBox;

  function Commarize(S: array of String): String;
  var
    I: Integer;
  begin
    Result := '';
    for I := Low(S) to High(S) do
    begin
      Result := Result + S[I];
      if I < High(S) then Result := Result + ', ';
    end;
  end;

begin
  with ADOTable2 do
  begin
    First; // Første record
    while not Eof do // Test om der ER en record
    begin
      DBListBox1.AddItem(
       Commarize([FormatDateTime('hh:mm:ss', FieldByName('Tidspunkt').AsDateTime),
                  FieldByName('AlarmOptionLyd').AsString,
                  FieldByName('AlarmOptionProgram').AsString,
                  FieldByName('AlarmOptionBesked').AsString,
                  FieldByName('AlarmOptionLås').AsString,
                  FieldByName('AlarmOptionLogAf').AsString,
                  FieldByName('AlarmOptionLuk').AsString,
                  FieldByName('AlarmOptionGenstart').AsString,
                  FieldByName('AlarmOptionForce').AsString]), nil);
      Next; // Næste record
    end;
  end;
end;

mvh
hsv