Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: Locate und VarArrayCreate

  Alt 21. Jun 2007, 15:15
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;
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat