VFP 愛用者社區

jerryclt · jerryclt 在星期四一月 20, 2011 9:58 am 作了第 1 次修改

小弟在一個 .prg 裡新增了這麼一個自定函數:

FUNCTION array_comp
PARAMETERS _trarray,_soarray,_arst,_aren

IF !EMPTY(_trarray[_arst])
FOR II3=_arst TO ALEN(_soarray)-_aren
IF !_trarray[II3]==_soarray[II3]
RETURN .F.
ENDIF
ENDFOR
ENDIF

RETURN .T.
ENDFUNC

編譯時一直出現......找不到未知的 _SOARRAY
本以為是該字串內藏鬼鬼,
重打後也是出現那個訊息,
目前只知錯誤是出在:
IF !_trarray[II3]==_soarray[II3]
不知是怎麼一回事?

已爬過文,
只發現到一篇相關文章,
可惜是未沒有解答!

amytamst · 註冊時間: 2010-04-06 文章: 15 第 2 樓

在PARAMETERS 後加
wait window VARTYPE(_soarray)
先看看傳進來的是啥

syntech · 發表於: 星期四一月 20, 2011 8:54 am 文章主題:

可能問題在你誤解了VFP 怎麼傳遞陣列

jerryclt · 發表於: 星期四一月 20, 2011 9:05 am 文章主題:

回樓上二位先進...
這只是編譯時期就出現的錯誤,
還沒到執行的階段

garfield · 發表於: 星期四一月 20, 2011 9:40 am 文章主題:

只要是在程式內沒有事先定義的陣列語句,
在編繹時就會提醒你會出錯.
你可以加上 EXTERNAL ARRAY ArrayList
就可免除錯誤訊息.

jerryclt · 發表於: 星期四一月 20, 2011 9:56 am 文章主題:

foxy · 發表於: 星期六一月 22, 2011 11:23 pm 文章主題:

或者可以用
array_comp(@_trarray,@_soarray,_arst,_aren)

請問樓主使用哪個版本?在vfp9SP2上沒有問題

jerryclt · 發表於: 星期五一月 28, 2011 3:55 am 文章主題:

真正問題出在呼叫的地方

.
.
.
IF !array_comp(@aArray,@bArray,1,50) && 原本是這樣呼叫的
　WAIT '錯了! 錯了! 你這個笨蛋!!' WINDOW TIMEOUT 987654321
ENDIF
.
.
.

FUNCTION array_comp
PARAMETERS _trarray,_soarray,_arst,_aren

IF !EMPTY(_trarray[_arst])
FOR II3=_arst TO ALEN(_soarray)-_aren
IF !_trarray[II3]==_soarray[II3]
RETURN .F.
ENDIF
ENDFOR
ENDIF

RETURN .T.
ENDFUNC
------------------------------------------------------------------------
.
.
.
IF !array_comp('aArray','bArray',1,50) && 改成這樣
　WAIT 'Oh Yeahhhhhhh!!' WINDOW TIMEOUT 1
ENDIF
.
.
.

FUNCTION array_comp
PARAMETERS _trarray,_soarray,_arst,_aren

IF !EMPTY(&_trarray[_arst]) && 加個東東
FOR II3=_arst TO ALEN(&_soarray)-_aren
IF !&_trarray[II3]==&_soarray[II3]
RETURN .F.
ENDIF
ENDFOR
ENDIF

RETURN .T.
ENDFUNC

如此一來,連EXTERNAL ARRAY .... 都可省略