在 rave report 的一個 datatext ,我做了一個 getValue 事件

[code delphi]
if (y<=0) then
value:='';
end;
[/code]

[code delphi]
if (y<=0) or (x>=999) then
value:='';
end;
[/code]
這樣雖然complier會過
但是執行時確會跳出一個
First chance exception at $74F5B727. Exception class EAccessViolation with message 'Access violation at address 00407218 in module 'Project1.exe'. Read of address 015D6878'. Process Project1.exe (16224)

這個錯誤
x,y都是currency
很奇怪, or改and 也是一樣錯誤
到底是哪裡出了問題??

最後,論壇的程式碼區塊怪怪的, 不會很正常顯示...有時會出現

請注意程式語法

if ) then
value:='';
end;

或

if ) then
value:='';
end;

getValue 事件及 x 變數的定義列出來, 才能知道問題點.

 if... then ,,,;

end;

最後那 end; 是多餘的吧 ??!!!
不知會影響嗎 ?

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.

大家說的
都不是發生錯誤的原因
至今我也找不到為何會錯

在rave report裡 ,它的code是有點不一樣的
例如: if true then begin
x:=0;
end;
這時complier就會出現錯誤, 它不認得 "begin" 這個關鍵字,它還有很多關鍵字不認得

至於then後面幹嘛還要加 end;
這是寫程式的習慣, 我一定會把區塊分好,方便閱讀
if true {...}
if true then begin ..... end;

建議您放上比較完整的程式碼
這樣大家才方便解決問題~

===================引 用 it1506 文 章===================
大家說的
都不是發生錯誤的原因
至今我也找不到為何會錯

在rave report裡 ,它的code是有點不一樣的
例如: if true then begin
x:=0;
end;
這時complier就會出現錯誤, 它不認得 "begin" 這個關鍵字,它還有很多關鍵字不認得

至於then後面幹嘛還要加 end;
這是寫程式的習慣, 我一定會把區塊分好,方便閱讀
if true {...}
if true then begin ..... end;

那個 value是個數字 在getvalue事件中自帶參數.
我本來的寫法是

[code delphi]
var x,z :currency;
z:=strtocurr(value);
x:=dataview3.fieldbyname('r_max').ascurrency;
if (x<=0) or (z>=999) then
value:='';
end;
[/code]
可是會出錯,


目前可運作的程式碼


[code delphi]
請在此區域輸入程式碼
var x,z :currency;

z:=strtocurr(value);
[/code]
===================引 用 老大仔 文 章===================
建議您放上比較完整的程式碼
這樣大家才方便解決問題~

編輯記錄