關於SClen函數裏面的result,應該是不能顯示的情況,因為編譯器不會定義壹個result變量,而是直接把結果給了函數返回值。妳可以試試把
Result := Round(CRadius* SeaClutterLevel/64);
改成:
CRadius:= Round(CRadius* SeaClutterLevel/64);
Result := CRadius;
看看CRadius是否能有正確的值。
在循環中不能顯示值,原因應該是這是個函數不是變量,所以不能顯示,妳可以改成
a := SCLen;
for j:=a+1 to MaxCycCount-1 do
試試,看看a裏面的值對不對。