怎么在一个递归中引用另一个递归??
Procedure GetTRCode(Var ALLTableCode:String);
Var
TempString:String;
TempInt:Integer;
Begin
IF Pos('tr',ALLTableCode) = 0 Then
Begin
Exit;
End;
TempInt := Pos('tr',ALLTableCode)-2;
TempString := RightStr(ALLTableCode,Length(ALLTableCode)-TempInt);
TempInt := Pos('/tr',TempString)+3;
TrHtmlCode := TrHtmlCode+LeftStr(TempString,TempInt);
TempString := RightStr(ALLTableCode,Length(ALLTableCode)-Pos('/tr',ALLTableCode)-3);
GetTDCode(TempString); //引用这个递归
GetTRCode(TempString);
End;