Help VirtualStringTree search/filter nodes

[todhuk]

I want to search for text in TVirtualStringTree.

However, I get a line error:
Error: Wrong number of parameters specified for call to "SearchText"

This is the code:

Code: Pascal  [Select][+][-]

1. procedure TMainForm.SearchText(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
2. var
3.   NodeData: PData;
4.   sText: String;
5.   bVisible: Boolean;
6. begin
7.   NodeData := Sender.GetNodeData(Node);
8.   Abort := False;
9.   bVisible := True;
10.   sText := String(data);
11.   if Length(sText) > 0 then
12.   begin
13.     if Pos(sText, NodeData^.BName) <> 1 then
14.     begin
15.       bVisible := False;
16.     end;
17.   end;
18.   Sender.IsVisible[Node] := bVisible;
19. end;
20.  
21. procedure TMainForm.btnSearch1Click(Sender: TObject);
22. var
23.   foundNode  : PVirtualNode;
24. begin
25.   VST1.BeginUpdate;
26.   try
27.    foundNode :=VST1.IterateSubtree(nil, SearchText, PChar(findEdit.Text));
28.   finally
29.     VST1.EndUpdate;
30.   end;
31. end;
32.  

[taazz]

Code: Pascal  [Select][+][-]

1.  foundNode :=VST1.IterateSubtree(nil, @SearchText, PChar(findEdit.Text));//Pay attention to the symbol @.
2.  

This should solve it, if not post again I'll take a closer look.

[WooBean]

Hi, todhuk!

First, try to read what you are going to post.
Explain what is "VST1" (variable or property type). I think that you will find the answer by yourself.

[Thaddy]

SearchText needs a var parameter...... Which needs to be declared AND initialized beforehand.

[todhuk]

Okay taazz
But why in the example "Advanced"(see unit VisibilityDemo) of the VirtualTreeView package, everything works without "@"?

[Thaddy]

Mode delphi? First count your parameters...

[todhuk]

well, thank you! 

[majid.ebru]

Hi

Code: Pascal  [Select][+][-]

1. procedure SearchText
2. (Sender:TBaseVirtualTree;Node:PVirtualNode;Data:Pointer;var Abort:Boolean);
3. var
4.   NodeData: PMyNode;
5.   sText: String;
6.   bVisible: Boolean;
7. begin
8.   NodeData := Sender.GetNodeData(Node);
9.   Abort := False;
10.   bVisible := True;
11.   sText := String(data);
12.   if Length(sText) > 0 then
13.   begin
14.     if Pos(sText, NodeData^.Col1) <> 1 then
15.     begin
16.       bVisible := False;
17.     end;
18.   end;
19.   Sender.IsVisible[Node] := bVisible;
20. end;
21. //-----------------
22.  
23.  
24. procedure TFormMain.B_T3_1_5Click(Sender: TObject);
25. var
26.   foundNode  : PVirtualNode;
27. begin
28.   VST.BeginUpdate;
29.   try
30.    foundNode :=VST.IterateSubtree(nil, @SearchText, PChar(E_T3_1_5.Text));
31.   finally
32.     VST.EndUpdate;
33.   end;
34. end;
35.  

i use these codes but i have error:

Code: Pascal  [Select][+][-]

1. foundNode :=VST.IterateSubtree(nil, @SearchText, PChar(E_T3_1_5.Text));

unit_Main.pas(4434,51) Error: Incompatible type for arg no. 2: Got "<address of procedure(TBaseVirtualTree;PVirtualNode;Pointer;var Boolean);Register>", expected "<procedure variable type of procedure(TBaseVirtualTree;PVirtualNode;Pointer;var Boolean) of object;Register>"

[balazsszekely]

Add SearchMain to TFormMain's private section:
procedure TFormMain.SearchText (...

[majid.ebru]

@GetMem thank you

it worked but it doesn't work true?!?

i search "B4000"

this item is visible ( visible is true)

but all parent of this item(B4000) is invisible(visible is false) and i can't see B4000?

how can i show all parent of item?
(how can i set visible ture all of parent?)

[balazsszekely]

@maid.ebru
I have no idea what are you trying to achieve. Why B4000 parents are not visible? Anyway let's say you find B4000 and you wish to set all it's parents visibility to true, you can try something like this:

Code: Pascal  [Select][+][-]

1. //  Node is B4000 here  
2.   Node := Node^.Parent; //<--B4000 parent
3.   while Node <> nil do
4.   begin
5.     VST.IsVisible[Node] := True;
6.     Node := Node^.Parent; //<--B4000 grand parent and so one
7.   end;