DataSet.LocateNext (horizontale Suche)

[Perlsau]

Das ist natürlich auch eine Möglichkeit: Einfach die Tabelle erweitern oder ein entsprechendes View in der DB erstellen – ach ja, und natürlich, wenn' Locate über berechnete Felder geht, ein solches in der Query einrichten.

Darauf hätte ich auch selber kommen müssen – mit Ausnahme der berechneten Felder, das wäre mir nicht im Traum eingefallen.

[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;

[Dennis991]

Danke für Eure zahlreichen Antworten, ich werde die Vorschläge mal ausprobieren.

Update:
funktioniert (habe die Lösung von Sir Rufo umgesetzt, da ich dadurch nicht das Grid erweitern muss.

[Dennis991]

Ich habe noch ein Problem:

Wenn ich die Suche starte, dann werden alle durchsuchten Zeilen nacheinander fokusiert (= markiert). Das führt zu dem Effekt (falls es im ganzen Grid nur 1 Treffer gibt), dass es unschön aussieht, dass alle Zeilen nacheinander markiert und am Ende wieder die Ursprungszeile markiert wird.

Wie kann ich dort noch Abhilfe schaffen?

Grüße

[baumina]

vorher ein

TDataSet.DisableControls; und danach wieder

TDataSet.EnableControls; Aber daran hatte Sir Rufo in seinem Beispielcode bereits gedacht.

[Dennis991]

Zitat von baumina:

vorher ein

TDataSet.DisableControls; und danach wieder

TDataSet.EnableControls; Aber daran hatte Sir Rufo in seinem Beispielcode bereits gedacht.

Hi,

ja das mache ich auch bereits. Jedoch scheint das nicht zu helfen. Hier ein kurzer Auszug:

Code:

     LBookmark := DataSet.GetBookmark;

      DataSet.DisableControls;
      try
        while (not DataSet.Eof) and (not Result) do
        begin
          ...
        end;

        if not Result then
          DataSet.GotoBookmark(LBookmark);
      finally
        DataSet.EnableControls;
      end;