Problème de conversion de String en Float

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

Code:

---

1 2 3 4 5 6 7

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

---

Code:

---

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;

---