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