DataSet.LocateNext (horizontale Suche)

[Sir Rufo]

Es geht aber auch ganz anders ... man schreibt sich eine procedure die das macht.

In etwa so: (ungetestet)

Delphi-Quellcode:

function DataSetLocateNext( ADataSet : TDataSet; const AFields : string; const AValue : Variant; ALocateOptions : TLocateOptions ) : Boolean;
var
  LBookmark : TBookmark;
  LSValue : string;
  LCValue : string;
  LFields : TStringList;
begin
  LSValue := VarToStrDef( AValue, '' );

  if loCaseInsensitive in ALocateOptions then
    LSValue := LowerCase( LSValue );

  LFields := TStringList.Create;
  try
    LFields.Delimiter := ';';
    LFields.StrictDelimiter := True;
    LFields.DelimitedText := AFields;

    for LIdx := 0 to LFields.Count - 1 do
      LFields.Objects[LIdx] := ADataSet.FieldByName( LFields[LIdx] );

    Result := False;

    LBookmark := ADataSet.GetBookmark;

    ADataSet.DisableControls;
    try
      while not ADataSet.Eof and not Result do
      begin
        ADataSet.Next;
        for LIdx := 0 to LFields.Count - 1 do
          begin
            LCValue := VarToStrDef( TField( LFields.Objects[LIdx] ).Value, '' );

            if loCaseInsensitive in ALocateOptions then
              LCValue := LowerCase( LCValue );

            if loPartialKey in ALocateOptions then
              Result := Pos( LSValue, LCValue ) > 0
            else
              Result := LSValue = LCValue;
          end;
      end;

      if not Result then
        ADataSet.GotoBookmark( LBookmark );

    finally
      ADataSet.EnableControls;
    end;
  finally
    LFields.Free;
  end; 
end;