1樓：匿名_熱心網友
function samelinenums(changei as integer, changej as integer)
dim i as integer
dim j as integer
dim num as integer
i = inti: j = intjdo
2樓：匿名使用者
private
pdataset:tdataset;
pid,pname,pparentid:tfield;
public
procedure treeinit(dataset:tdataset;id,name,parentid:tfield);
function treeadditem(parent: ttreenode;resort: boolean): ttreenode;
procedure treedeleteitem(node:ttreenode);
function treefinditem(id:string): ttreenode;
end;