超奇怪的问题

[kplchx]

下面函数，在独立一个简单的项目，一个FORM，运行完全正常，但把代码原封不动的加入到其它项目后，调用出错。
同一台电脑，同一版本，连传入的数据都是一样的。 出错的代码是 RANGE CHECK ERROR,出错的代码：myint=mlint xor 1
谁能解释得通？
function TForm1.getcardint(cardsn: string): integer;
var mlint: Cardinal;
myint: integer;
bi: int64;
begin
bi := strtoint64(cardsn);
if bi >= 2147483648 then
begin

mlint := bi;
myint :=mlint XOR 1;
myint := myint - 1;
end
else
myint := bi;
result := myint;
end;

[山东蓝鸟贵薪]

将这个
cardsn: string
修改成：
cardsn: pchar
试试吧

[kplchx]

谢2楼回复

应该和PCHAR没有关系，传入的是一个IC卡内码号，这个数值比较大，超过了INTEGER的范围，所以用STRING记录，传递后函数里面的数据是正确。

此函数在一个项目正常（测试项目），在另一一个项目(正式项目)不正常。

[Oraclers]

DELPHI 7 剛試過，沒見到你說的錯誤。下面是測試代碼：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,TestGetCardIntFrm, StdCtrls;

type
TTestForm = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
TestForm: TTestForm;

implementation

{$R *.dfm}

procedure TTestForm.Button1Click(Sender: TObject);
var
i:integer;
begin
i := Form1.getcardint('2147483649');
showmessage(IntToStr(i));
end;
end.

[kplchx]

大家还未明白我的情况，IC卡号，十六进制的FB8E834E 10进制的是4220420942
用这个10进制的整数存到SQL SERVER 的int型，INT型的范围－2147483649到2147483648
我需要把一个无符号数转换成有符号数，才能存储，并能适应原有的程序运行。因此我做了上面的一个函数，此函数我在测试项目（建一个简单的FORM1，批量读取IC卡号测试），全部通过。同样的处理，我摆入正式的项目，结果就出错了，遇到大于2147483648 的运行到XOR 就RANGE CHECK ERROR

[kplchx]

会不会是因为项目的编译设置有关系？ 如果是的，编译设置在哪？

[蓝色光芒]

代码本身没问题,考虑调用所在地的代码.

题外话,
myint := mlint XOR 1;
myint := myint - 1;
用一句就行了
MyInt := MlInt and $FFFFFFFE;

整个函数简化一下就成这样了
var
bi: int64;
begin
bi := StrToInt64(cardsn);
if bi >= $80000000 then
Result := DWORD(bi) and $FFFFFFFE
else
Result := bi;
end;

[蓝色光芒]

晕,看错,Sorry,XOR 看成了OR

[kplchx]

谢谢各位，问题确实在项目的编译器设置。 我正式项目的起源于D6, 后来改用D7。
新开的测试项目是D7，编译器的 range checking 是没有选中的。而正式项目此选项是选中的。

[Oraclers]

[Quote=引用 4 楼 的回复:]
大家还未明白我的情况，IC卡号，十六进制的FB8E834E 10进制的是4220420942
用这个10进制的整数存到SQL SERVER 的int型，INT型的范围－2147483649到2147483648
我需要把一个无符号数转换成有符号数，才能存储，并能适应原有的程序运行。因此我做了上面的一个函数，此函数我在测试项目（建一个简单的FORM1，批量读取IC卡号测试），全部通过。同样的处理……
[/Quote]
也是按你辦法在簡單項目試沒問題，然後將這個單元加到一個項目測試，用的數據是i := Form1.getcardint('2147483649');
比你那個函數中的大1，加到另一個項目中也沒問題。
另數據庫中表可不可以改？如可改，建議字段用Varchar來儲存卡號。我在項目中就是這麼做的，不需要去轉。

[easyboot]

单步调试 ，看看出错的值是多少.

[kplchx]

谢谢kiboisme 你的函数也是正确的。 并非常抱歉结贴时未注意到你的回复，而没有给分。

[kplchx]

TO :Oraclers

谢谢，存储的数据给别人的项目，我通过自己的项目管理自己的数据，同时为方便使用，直接从我的项目传递数据到别人的项目，所以我不能更改结构。