Discussion :

[reuqnas]

Bonjour,

mon problème est le suivant, j'ai un nombre mais défini comme un string par exemple '145' et j'aimerai le mettre au format suivant '0.0' comment puis je réaliser cela

cordialement

Merci

[Papy214]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var
  S: string;
  F: Double;
begin
  FormatSettings.DecimalSeparator := '.';
  S := '145';
  ShowMessage(Format('%.1f', [StrToFloatDef(S, 0)]));

[94340DB]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Procedure TForm1.Button1Click(Sender: TObject);
var
 S:String;
 F:Double;
begin
 F:=125;
 S:=FormatFloat('0.0', F);
end;
 
// S  = 125,0
si tu mets  S:=FormatFloat('0.00', F); tu obtiens
// S = 125,00;