從Variant String轉換為Double忽略小數點

Question

我有幾行簡單的代碼：

var
  vRecordValue:Double;
begin
  vRecordValue:= someVariant;

someVariant是一個字符串（類型256）。

在生產系統上，我們有'23 .4'的變體，vRecordValue變為234.我只能重現這是我的系統分隔符是'，'。 在我們的生產系統中，情況確實如此，但我們已經改變了設置，但仍然看到了這種情況。 值得注意的是，除了調試模式之外我們無法重現這一點（不知道這里的關系是什么），並且做了一個簡單的測試。

我通過顯式轉換修復了這個問題：

vRecordValue:= StrToFloatDef(VarToStrDef(someVariant, '0'), 0);

問題：

1. 有沒有其他方法可以忽略小數點？
2. 有人可以提供一個參考，說明如何執行從字符串到雙精度的默認轉換？ 我想了解其中的差異。
3. 有沒有什么方法可以在首次運行代碼時從值中緩存默認轉換中使用的分隔符？ ......懷疑但絕望地理解。

謝謝，

韋恩。

Answer 1

這是您的區域設置

為了測試它，我做了這個samall演示應用程序：

procedure TForm60.FormCreate(Sender: TObject);
var
  vRecordValue: Double;
  sRecordValue: Variant;
begin
  sRecordValue:= '23.4';
  vRecordValue:= StrToFloatDef(VarToStrDef(sRecordValue, '0'), 0);
  ShowMessage(FloatToStr(vRecordValue));

  sRecordValue:= '23,4';
  vRecordValue:= StrToFloatDef(VarToStrDef(sRecordValue, '0'), 0);
  ShowMessage(FloatToStr(vRecordValue));
end;

在丹麥（我住的地方）我們使用，作為十進制分隔符，所以最后一個給我正確的結果

Answer 2

關於我的第三個問題。 這個問題本周再次出現。 我沒有意識到只為當前用戶設置了區域設置/區域設置。

要復制系統用戶的設置，我們需要使用：

控制面板>區域和語言>管理>復制設置。

這就是我在測試時遇到不一致的原因。 它取決於我的應用程序運行的用戶和用戶設置。