该文被密码保护。 阅读全文
posted @ 2009-01-07 14:50 谭志宇 阅读(3) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.DelimitStr(Str: String; var DeskString: TStrings); var Temp: string; I, J, NoNull: Integer; begin NoNull := 0; Temp := Str; if Str = '' then Exit; while NoNull Length... 阅读全文
posted @ 2009-01-07 11:50 谭志宇 阅读(264) 评论(0) 推荐(0) 编辑
摘要: 本来我一直都是使用递归算法, 效率很低 下边这段代码是我原来写的 ----------------------------------------------------------------------------------------------------- procedure TForm1.GetDepartmentMsg; var Test, Test2 : TTreeNod... 阅读全文
posted @ 2009-01-07 11:46 谭志宇 阅读(1494) 评论(0) 推荐(0) 编辑