算法如下所示：procedure RecursionForeachAllFiles(var ACount :Integer; AMemo :TMemo; AFilePath :String);//参数说明：//ACount ：用于计算所遍历得到的文件数//AMemo ：用于显示所遍历得到的文件名//AFilePath :所要遍历的目录var  _SearchRec :TSearchRec;  _Finded :Integer;  _Str :string;begin  if AFilePath[Length

<br />续：<br />此算法增加括号()、中括号[]、大括号{}

GetRightStr //取右边字符串 EnumFileInRecursion遍历生成目录树procedure EnumFileInRecursion(ATree :TTreeView; AParentNode :TTreeNode; APath:PChar);var  _searchRec :TSearchRec;  _found, _len :Integer;  _tmpStr :String;begin  //Ctreate RootNode, for example: path is 'C:' o

主要思想：通过不断取运算符左右两边操作数进行计算，计算后重组整个表达式。递归进行计算，直到整个表达式没有运算符。

c#代码:System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(string ,”MD5″);delphi代码:{*_* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *Author

for i:=9 downto 0 do    for j:=0 to i do    begin      times := times + 1;      if LArray[j] > LArray[i] then      begin        temp := LArray[i];        LArray[i] := LArray[j];