FoxPro中如何获得调用堆栈信息的记录

Question

在FoxPro如何让来电进行记录堆栈信息。（不使用调试器的用户界面，但在运行时代码）

Answer 1

可以使用ASTACKINFO（）函数创建一个充满调用堆栈的数组。

Answer 2

使用ASTACKINFO像MikeReigler说，当时是这样的：

cStack = "" 
    nStackCount = astackinfo(arrStackInfo) 

    for nCount = nStackCount to 1 step -1 

     cStack = cStack + "Level " + transform(arrStackInfo(nCount, 1)) + chr(13) 
     cStack = cStack + iif(not empty(arrStackInfo(nCount, 2)), ; 
      "Filename: " + transform(arrStackInfo(nCount, 2)) + chr(13) , "") 
     cStack = cStack + iif(not empty(arrStackInfo(nCount, 3)), ; 
      "Module/Object name: " + transform(arrStackInfo(nCount, 3)) + chr(13) , "") 
     cStack = cStack + iif(not empty(arrStackInfo(nCount, 4)), ; 
      "Module/Object filename: " + transform(arrStackInfo(nCount, 4)) + chr(13), "") 
     cStack = cStack + iif(not empty(arrStackInfo(nCount, 5)), ; 
      "Line # : " + transform(arrStackInfo(nCount, 5), "999999") + chr(13), "") 
     cStack = cStack + iif(not empty(arrStackInfo(nCount, 6)), ; 
      "Code: " + transform(arrStackInfo(nCount, 6)) + chr(13), "") 
     cStack = cStack + chr(13) 

    next