德爾福7：拿錢格式字符串

Question

如何能在德爾福轉換：

'1' 到 '1.00'

或

'1,5' 到 '1,50'

例如，所有變量都是字符串。

謝謝

Answer 1

您可以使用Format或FormatFloat函數。格式示例（假設'，'是小數點分隔符）是

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ShowMessage(Format('%.2f', [StrToFloat('1,5')])); 
end; 

Answer 2

您正在尋找我相信的formatFloat函數。

var 
    sText : string; 
begin 
    sText := '1234'; 
    showMessage(formatFloat('#,###.00', strToFloat(sText))); 

-Don。

Answer 3

使用FormatFloat。它是德爾福，與「我」，順便說一句...