StrtoInt64Def在Delphi中轉換錯誤

Question

我有一個具有ConvertFunction的小程序，該函數將字符串數據轉換為其他格式。 函數的返回類型為Variant。 當我使用StrToIntDef轉換整數值時，它沒有任何錯誤。

但是現在我的數字很大，因此我想使用int64而不是整數。 當我使用StrToInt64def函數轉換其給我的錯誤時，無法兼容的類型：Variant和int64。

以下是這兩個代碼。 知道這有什么問題嗎？

工作方式：

function Convertfunction(sTest:String):Variant;
begin
  result:= StrtoIntDef(sTest,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sString: string;
  value:variant;
begin
  sString:= '123456';
  value:= Convertfunction(sString);
  showMessage(value);
end;

不起作用：

function Convertfunction(sTest:String):Variant;
begin
  result:= StrtoInt64Def(sTest,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sString: string;
  value:variant;
begin
  sString:= '12345678901';
  value:= Convertfunction(sString);
  showMessage(value);
end;

Answer 1

Delphi 5似乎在int64和variant之間沒有股票轉換器。 如果您需要在應用程序中使用它，可以

• 實現它（請參見“自定義變體類型”手冊）
• 切換到最新的Delphi
• 切換到CodeTyphon或其他Lazarus / FPC發行版