今天週一,接着做上週沒完成的一個模塊,是根據玩家動作畫指示箭頭, 按照思路做好後,總是出現一些莫名奇妙的找不到資源文件的錯誤, CALL.., 因爲找不到資源,我一致以爲是我在繪圖以及資源調用上出錯了, 一次次的調試,沒發現什麼錯誤, 最後.... ,我一步步的調試, 總算找到根源, 我把CASE語句的語法搞錯了, 得不到我要的字符..., 下面是我原來的做法
- LDistance:= Ord(ASecPlayer) - Ord(AFirstPlaye);
- case LDistance of
- -1 or 3 : Result := '<';
- 1 or -3 : Result := '>';
- 2 or -2 : Result := '^';
- else Result := '@';
- end;
唉, 發現錯誤了沒, 鬱悶死我了, 這個錯誤導致了1天的工期... ,正確用法如下
- LDistance:= Ord(ASecPlayer) - Ord(AFirstPlaye);
- case LDistance of
- -1,3 : Result := '<';
- 1,-3 : Result := '>';
- 2,-2 : Result := '^';
- else Result := '@';
- end;
要用逗號來分割條件, 而不是用or中.....,
另外,還有一次我的不細心,導致的一個問題,就是在給數組賦值用FillChar時, 我用Length來標識Size, 唉, 應該用Sizeof ,
這些錯誤, 真是愚昧... ,望大家引以爲戒....