vst - Suche nach Teilstring

[ratloser]

Noch ein kleines Problem bei der Suche:

Habe folgenden Code:

Delphi-Quellcode:

procedure TKalk.naechsteneintragsuchenClick(Sender: TObject);
var
  f ,run : PVirtualNode;
  suchobjekt: String;
begin
   suchobjekt := objauswsucherechnungsnummer.text;
   vst.selectednode := vst.getfirst;
//   vst.setfocus;
  if assigned(vst.FocusedNode) then  begin
    run := vst.FocusedNode;
    run := run.NextSibling;
    while Assigned(run) do begin
      f := vst.IterateSubTree(run,ausfuehren,Pointer(suchobjekt),[],true,false);
      if assigned(f) then begin
        vst.FocusedNode := f;
        vst.Selected[f] := true;
        break;
      end;
      run := run.NextSibling;
    end;
  end;
end;

Delphi-Quellcode:

procedure Tkalk.ausfuehren(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Data: Pointer; var Abort: Boolean);
begin
  Abort := vst.Text[Node,0] = objauswsucherechnungsnummer.Text;
end;

Nun meine Frage:

Die Nodes beinhalten Texte wie Namen und Arbeitsbeschreibungen

Die Suche funktioniert super - aber nur wenn ich den ganzen Text eingebe.

Wenn also ein Node 'Huber Martin' lautet, dann findet er es nur wenn ich 'Huber Martin' eingebe, aber nicht bei Huber.

Und noch ein kleiner Schönheitsfehler. Egal nach was ich suche, egal ob er es findet oder nicht, es wird immer der erste Node geöffnet.

Danke für Eure nochmalige Unterstützung bei diesem Thema

(ein wieder) Ratloser

[sh17]

zu Problem 1 folgender Vorschlag

Delphi-Quellcode:

procedure Tkalk.ausfuehren(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Data: Pointer; var Abort: Boolean);
begin
  Abort := (Pos(objauswsucherechnungsnummer.Text,vst.Text[Node,0]) > 0);
end;

wegen dem 2. Problem mit dem selektierten Node. Welche vst-Version nutzt Du.

vst.selectednode := vst.getfirst; gibt es meines erachtens gar nicht mehr, wobei dies der Grund sein dürfte.

[generic]

ich denke
vst.selectednode := vst.getfirst; sollte das hier sein (wie in dem anderen thread
vst.focusednode:= vst.getfirst;