Locate und VarArrayCreate

[Alter Mann]

Hi,

ich möchte ein Feld welches mehrere Tausend DateTime-Werte enthält mittels Locate durchsuchen und
nur die Werte zurück bekommen die bestimmten Kriterien entsprechen, z.B. alle Termine vom Januar 2006.

Dazu benutze ich bisher:

Delphi-Quellcode:

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

  DecodeDate(GetLastMonthDay(EncodeDate(2006, 01, 01)), Y, M, D);
  MaxDays := VarArrayCreate([1, D], varVariant);

  for I := 1 to D do
  MaxDays[I] := Trunc(EncodeDate(2006, 01, I));

  B := ADODataSet1.Bookmark;
  if ADODataSet1.Locate('StartTime',
                        MaxDays,
                        [loCaseInsensitive, loPartialKey]) then
  begin
    ListBox1.Items.Add(ADODataSet1.FieldValues['StartTime']);
  end;
  ADODataSet1.Bookmark := B;
end;

Bei der Ausführung kommt es jedoch bei Locate zur Exception
"Variante des Typs(Array Variant) konnte nicht in den Type(String) konventiert werden".

Ein VarArrayCreate([1,D], varString) schlägt auch fehl, das kein sicheres Array oder Variante erzeugt werden kann.

Wie gehts 'richtiger'?

Gruss

Alter Mann

[stifflersmom]

Wäre da nicht ein Filter sinnvoller?
Bzw. gleich eine Query zu nehmen die per Parameter nur Deine gewünschten
Datensätze zurückgibt.

Moin

[Bernhard Geyer]

Nimm TQuery und bau dir ein Query mit Parametern zusammen.

[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

[alzaimar]

Hi Alter Mann,

Für jeden Feldnamen im 1.Parameter der Locate-Methode musst du einen Wert im 2.Parameter übergeben. der wird auf Gleichheit geprüft. In den Options kannst Du noch angeben, ob bei einem Stringvergleich die Gross/Kleinschreibung eine Rolle spielt (loCaseInsensitive) bzw. ob man nach einem Substring suchen will (loPartialCompare).

Einen Bereich zu finden geht so nicht, dazu nimmst du etwas selbstgebautes:

Delphi-Quellcode:

Function LocateBetween (aDS : TDataset; aFieldName : String; aLowDate, aHighDate : TDateTime) : Boolean;
Var
  fField  : TDateTimeField;
Begin
  Result := False;
  fField := aDS.FieldByName(aFieldName);
  While not ADS.Eof Do Begin
    If (fField.AsDateTime >= aLowDate) And (fField.AsDateTime <= aHighDate) Then Begin
      Result := True;
      Exit;
    End;
    aDS.Next;
  End;
End;

[raiguen]

Zitat:

Zitat von Alter Mann

Hallo,

Filter oder TQuery scheiden aus, ...

Warum sollte TQuery nicht genausogut funktionieren bzw vllt. sogar schneller als das stäbdige Locate() in einer Schleife?

Ausm Kopf mal die grundsätzliche Idee:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  procedure DatumAuslesen(const ADAT, EDAT: TDateTime);
  begin
    if not Query1.Prepared then
      begin
        Query1.SQL.Text := 'SELECT starttime FROM MeineTabelle ' +
                           'WHERE starttime BETWEEN :ANFDAT AND :ENDDAT';
        Query1.Prepare;
    end;
    Query1.Close;
    Query1.Params[0].AsDateTime := ADAT;
    Query1.Params[1].AsDateTime := EDAT;
    Query1.Open;
  end;

var
  AnfangsDatum, EndDatum : TDateTime;
   ...
begin
  ListBox1.Items.Clear;
  
  AnfangsDatum := ...;
  EndDatum     := ...;

  DatumAuslesen(AnfangsDatum, EndDatum);
  if not Query1.Empty then
    begin
      ListBox1.Items.Add(Query1.FieldValues['StartTime']);
      Query1.Next;
    end;
  end;
  ...
end;

Die Werte für AnfangsDatum und EndDatum sind natürlich entsprechend zu setzen.