我寫的一個RS232程式，大概會碰到把字符型的"035.1"用StrTofloat轉換成浮點型的35.1，在我的中文windows下面運行都沒有問題，但是產品賣到德國去用德文版和英文版的windows卻都出錯，提示"035.1"不是一個有效的浮點類型，請問為什么？如何解決，是不是要先對字符串格式化成“35.1”？我在網上也搜索到有人問類似問題，難道StrToFloat在德語版的windows不兼容？

編輯記錄

問題其實是出在
德國的小數點符號是 "," 千位元符號是"."
剛好與一般認知相反
解決方法
一種是請user 修改控制台中 的地區及語言選項(應該不太可行)
另一種是在轉成float之前先用AnsiReplaceStr轉成德國的表示法

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

這，妙
所以必須先判斷語系
使用 GetLocaleInfo 之類的函式

===================引 用 eaglewolf 文 章===================
問題其實是出在
德國的小數點符號是 "," 千位元符號是"."
剛好與一般認知相反
解決方法
一種是請user 修改控制台中 的地區及語言選項(應該不太可行)
另一種是在轉成float之前先用AnsiReplaceStr轉成德國的表示法

編輯記錄

所以先取得OS語系之數值格式
再轉換成該語系的數值格式
如此StrToFloat應會對

原來如此！我看了一下，世界很多地方都有各自的表示方式，那豈不是要根據每一個國家去load設置？好麻煩啊，有沒有什麽更好的方法，謝謝了！

syntax大大及pedro756901大大不是已經有說了嗎?
利用GetLocaleInfo函式取得該語系的數值格式
再轉換成該語系的數值格式~

===================引 用 oktony 文 章===================
原來如此！我看了一下，世界很多地方都有各自的表示方式，那豈不是要根據每一個國家去load設置？好麻煩啊，有沒有什麽更好的方法，謝謝了！

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄

這個我明白，我的意思全世界有120多個語言區域，用GetLocalInfo后，是不是要根據每個區域的格式做一個很長的switch來轉換？

不會啦,應會有千分位設定的值
台美千分位','
德千份位'.'

所以概念是
MyValue='035.1'
ConvertMillesimal
(
GetLocaleInfo....
Millesimal=....
Result:=ReplaceStr(MyValue,',',Milesimal)
)
這部分可能你要去查MSDN及Win32 API,去實作

編輯記錄

這是個好問題～
況且目前的討論也沒解決我這個旁觀者的疑惑！英文語系的數值表示法不是跟我們也一樣嗎？為何英文版的也不行？除非德國人使用英文版去控制台調整數值的表示法後才造成錯誤？！那可見調整控制台是有用的囉？！小弟資質努鈍，看得有點花了。
===================引 用 oktony 文 章===================
這個我明白，我的意思全世界有120多個語言區域，用GetLocalInfo后，是不是要根據每個區域的格式做一個很長的switch來轉換？

在windows控制面板的區域和語言選項中的區域選項可以看到有120多個區域設置，每個區域對應的數字表現形式都有不同，在下方的示例可以看到，雖然就是小數點“,”和"."這兩種表示方式而已，但是我覺得GetLocalInfo后每個區域都要去一一對應設置也覺得很麻煩耶，這邊有篇文章講解http://www.utf.com.cn/article/s13-2，里面談到TsiLang這個插件，但是我還不會用...

調控制臺是有用，但總不能叫每個用戶去改成指定區域..stallion版主太謙虛了，要test這個問題，只要在控制面板把區域改成德國，然后放一個button在form里，寫strtofloat('2.33')運行后即可發現出錯

編輯記錄

利用 GetLocaleInfo 取得 strThousand(千位元符號),strDot(小數點符號) , strNegative(負數符號)等

strData := AnsiReplaceStr(strData,',', '%THOUSAND%');
strData := AnsiReplaceStr(strData,'.', '%DOT%');
strData := AnsiReplaceStr(strData,'-', '%NEGATIVE%');

strData := AnsiReplaceStr(strData,'%THOUSAND%', strThousand');
strData := AnsiReplaceStr(strData,'%DOT%', strDot);
strData := AnsiReplaceStr(strData,'%NEGATIVE%', strNegative);

fltData := StrToFloat(strData);

===================引 用 oktony 文 章===================
這個我明白，我的意思全世界有120多個語言區域，用GetLocalInfo后，是不是要根據每個區域的格式做一個很長的switch來轉換？

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

謝謝！這里很溫暖。
另外多問一個問題，像℃這種全角的符號有沒有辦法在德文系統顯示？我看是亂碼

我不懂為什麼不這樣做。
var
SaveSeparator: Char;
begin
SaveSeparator:= DecimalSeparator;
try
DecimalSeparator:= '.';
Value := Strtofloat('035.1');
finally
DecimalSeparator:= SaveSeparator;
end;
end;

ThousandSeparator、DecimalSeparator 以取好在 Sysutils

謝謝wameng大大，您的方法很妙，非常感謝