Delphi 7: obtenir le format de l'argent dans la chaîne

Question

Comment convertir en delphi:

'1' à '1,00'

ou

'1,5' à '1,50'

Par exemple, toutes les variables sont en chaîne.

merci

Answer 1

Vous pouvez utiliser la fonction Format ou FormatFloat. L'exemple de format (en supposant que ',' est un séparateur décimal) est

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

Answer 2

Vous cherchez la fonction FormatFloat je crois.

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

-Don.

Answer 3

Utilisez FormatFloat. Et c'est Delphi, avec "i", btw ...