易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi tree递归求差 - Delphi / 数据库相关

数据库结构如下:
id parentid,name,money,totalmoney,submoney
0,0,根节点,0,15000,0
1,0,张山,1000,5000,0
2,0,张好,2000,7000,0
3,0,王五,3000,3000,0
4,1,黎明,4000,4000,0
5,2,老刘,5000,5000,0

type
 tmydata = record
 id:integer;
 parentid:integer;
 name:string;
 money:double;
 totalmoney:double;
 submoney:double;
 resume:boolean;
 end;
pmydata = ^tmydata;

现在想反向计算submoney.
submoney 是当前节点的totalmoney 减去下面所有层次的money.
并且要去掉当前下级节点的money最大值。
function submoney(p:tTreenode):double;
var
i:integer;
d:pcustdata;
begin
  d:=pcustdata(p.data);
  {
  if not d.resum then //resum 起到只计算一次的作用?。
  begin
  result:=d.money;
  exit;
  end;
  }
  if p.Count <1 then
  begin
  d.submoney := 0; //=0
  result := d.money;
  d.resum:=false;
  exit;
  end;
  result := d.money;
  for i:=0 to p.count -1 do
  result := result + submoney(p.Item[i]);
//全部加起来以后用总数去减
  d.submoney := d.totalmoney + d.money - result;
  d.resum:=false;
end;
我写的这个没有考虑下级节点的最大值。
另外一种。
function submoney(p:tTreenode):double;


相关问答:

Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

付费求delphi拼音编程 - Delphi / 非技术区

具体要求与报酬QQ729851670
771234717

“拼音编程”是什么意思

引用
“拼音编程”是什么意思
1.给一个字可以显示拼音,多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......

关于Delphi IXMLDOMNodeList 保存

var
FXmlDoc:IXMLDomDocument;
begin
使用FXmlDoc.save('文件路径');
结果发现保存后的该文件中文全部为乱码,如何解决
end;
参考这个
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......

sql语句错误 - Delphi / 数据库相关

定义变量s,sql为string类型,s为函数参数,sql:='select field1 from table1 where'+s;运行时s赋值为id>7或者id<7、id=7,但是运行时总是出错,请各位帮我改错,多谢!

showMessage(sql)下看看
sql:='sel ......

delphi 问题求助 - Delphi / 网络通信/分布式开发

问题是这样子的
我在form1中定义了一个sk1:tsocket
然后在form2中
用sk1 发送东西 发完后 socket 自动关闭了~
但是在form1中发东西 如果我不运行 closesocket 的话 是不会断掉的
问下 这是怎么回事
另我在 for ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号