该文被密码保护。 阅读全文
摘要:
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... 阅读全文
摘要:
本来我一直都是使用递归算法, 效率很低 下边这段代码是我原来写的 ----------------------------------------------------------------------------------------------------- procedure TForm1.GetDepartmentMsg; var Test, Test2 : TTreeNod... 阅读全文