請問一下~~如題~~怎麼將 comp轉成integer呢??? 我想了很久~~但想不出來~~~ 誰可以幫幫我~~謝謝~~~ comp好像是浮點數吧~~要轉成整數~~

為甚麼用 Comp 呢, Delphi 建議不要用 Comp 而使用 Int64    另 Comp 是用浮點數的方式運算但其實記的是 integer。    真的要用的話可用 Round    

procedure TForm1.Button2Click(Sender: TObject);
var C : Comp;
var I : int64;
begin
  C := 34871847178;
  I := Round(C);
  ShowMessage(IntToStr(I));
end;

補充一下. delphi on-line help 中的說明: The Comp (computational) type is native to the Intel CPU and represents a 64-bit integer. It is classified as a real, however, because it does not behave like an ordinal type. (For example, you cannot increment or decrement a Comp value.) Comp is maintained for backward compatibility only. Use the Int64 type for better performance.    另外也可以使用 Trunc 來進行轉換的動作:    

procedure TForm1.Button2Click(Sender: TObject);
var C : Comp;
var I : int64;
begin
  C := 34871847178;
  I := Trunc(C);
  ShowMessage(IntToStr(I));
end;