NWDSScanConnsForTrees Example

Does anyone have a delphi (pascal) sample for NWDSScanConnsForTrees?

Thanks in advance

Hello Kevin,

a function that returns the trees for the connections.

function get_current_trees:TStringList;
const trs = 50;
type p = array[1..trs] of pchar;
      a = array[1..trs,0..NW_MAX_TREE_NAME_BYTES] of char;
var pp : p;
     tr : a;
     i: integer;
     cnt : nuint;
begin
   result:=TStringList.create;
   for i:=1 to trs do pp[i]:=@tr[i];
   if NWDSScanConnsForTrees(context,trs,cnt,@pp)=0
   then for i:= 1 to cnt do result.Add(string(pp[i]));
   result.Sort;
end;

Hans

Kevin Berry wrote:
> Does anyone have a delphi (pascal) sample for NWDSScanConnsForTrees?
> 
> Thanks in advance
>