各位大大，請教以下問題，謝謝!!

以下程式碼，22,000*114,478 程式執行結果為 -1,776,451,296
用計算機按出來結果為 2,518,516,000
將 var T1,T2:integer 改成 var T1,T2:Longint，結果沒變，
不知問題出在何處!!!!!


procedure TForm1.Button1Click(Sender: TObject);
var T1,T2:integer;
begin
T1:=22000;
T2:=114478;
Showmessage(intToStr(T1*T2));
end;

procedure TForm1.Button1Click(Sender: TObject);
var T1,T2:currency;
begin
T1:=22000;
T2:=114478;
Showmessage(floatToStr(T1*T2));

end;

------
努力會更接近成功

謝謝 pceyes提供的方法，已經解決了。

刪剛自已爬文也發現 var T1,T2:int64;
也可以解決這個問題，謝謝大家，有k-top真好!!

出现这个问题的根本原因是没有注意到数据类型的数值范围.

Type Range Format
Type Range Format
Integer -2147483648..2147483647 signed 32-bit
Cardinal 0..4294967295 unsigned 32-bit
Shortint -128..127 signed 8-bit
Smallint -32768..32767 signed 16-bit
Longint -2147483648..2147483647 signed 32-bit
Int64 -2^63..2^63-1 signed 64-bit
Byte 0..255 unsigned 8-bit
Word 0..65535 unsigned 16-bit
Longword 0..4294967295 unsigned 32-bit

在使用相关数据类型前,应当预估结果的最大范围,再据此来选择相应的数据类型.