Locate und VarArrayCreate

[Alter Mann]

Hallo,

Filter oder TQuery scheiden aus, brauche es für etwas anderes Allgemeine Verständnisfrage (Feld durchsuchen).

Bin erst einmal darauf ausgewichen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I  : Integer;
  B  : TBookMarkStr;
  DT : TDateTime;
  Y, M, D : Word;
begin
  ListBox1.Items.Clear;

  DecodeDate(dtpFirst.Date, Y, M, D);
  D := 32;
  try
    while not IsValidDate(Y, M, D) do Dec(D);
  except
  end;

  B := ADODataSet1.Bookmark;
  for I := 1 to D do
  begin
    DT := EncodeDate(Y, M, I);
    if ADODataSet1.Locate('StartTime',
                          DT, ,
                          [loCaseInsensitive, loPartialKey]) then
    begin
      ListBox1.Items.Add(ADODataSet1.FieldValues['StartTime']);
    end;
  end;
  ADODataSet1.Bookmark := B;
end;

Gruss