Modifier un caractère dans un TEdit.Text

Bonjour,

Je souhaite remplacer le caractère point par le caractère virgule dans un TEdit
Je sais le faire avec TP7 mais il ne fonctionne avec Windows que sous DOSbox ou Virtual Machine ce qui n'est pas pratique pour le partage.
voici mon essais:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

{---------------------------------------------------------} procedure TTL431_Vref_OUT.CalculClick(Sender: TObject);   var hlf,Vs,Vo,R,Rx,Rs,Ia,It: Real; ln,ct: integer; Ch:PAnsiChar ; begin ln := 0; Ch := PAnsiChar(Edit2.Text); ct:= StrLen (Ch); if ln <= ct then begin if CH = #46 then Ch := #44; Edit2.Text := PAnsiChar(Ch); end; Vs := StrToFloat(edit1.Text); Vo := StrToFloat(edit2.Text); R := StrToFloat(edit3.Text); Ia:= StrToFloat(edit4.Text)/1000;     hlf:= (Vo/2.5)-1; {half} Rx:= R/hlf; Vo:=(2.5/Rx)*(R+Rx); Rs:= (Vs-Vo)/Ia; Ia:=Ia; It:= ((Vo/(R+Rx)+Ia));     Vsup.Caption:=FloatToStr(Vs); Vout.Caption:=FloatToStr(Vo); R2.Caption:=FloatToStrf(Rx,ffFixed,7,2); Iak.Caption:=FloatToStr(Ia*1000); Rsup.Caption:=FloatToStrf(Rs,ffFixed,6,2); I_Total.Caption:=FloatToStrf(It*1000,ffFixed,2,5); end; end.

---

dans cet essais le point n'est pas remplacé et Delphi me le signale en erreur, quelle procédure adopter ?

Bonjour,

Citation:

---

Je souhaite remplacer le caractère point par le caractère virgule dans un TEdit

---

s'il s'agit de le remplacer à la saisie (le point du clavier numérique doit être remplacé par le point décimal des formatsettings de l'utilisateur du poste)
il faut utiliser l'événement onKeyDown du poste

Code:

---

1 2 3 4 5 6 7

// FMX , Tokyo 10.2.3 procedure TForm21.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if keychar='.' then keychar:=FormatSettings.DecimalSeparator; end;

---

N.B en VCL on utilisera OnKeyPress plutôt que onKeyDown

S'il s'agit de reproduire le comportement de la procédure du code, deux choix
soit vous remplacez effectivement le point
soit vous changez le comportement de StrToFloat et encore deux manières de faire
- changer les TFormatSettings dans la procédure
- (++) changer juste avec une autre syntaxe de StrToFloat : function StrToFloat(const S: string; const FormatSettings: TFormatSettings): Extended; overload;
il y a aussi StrToFloatDef à envisager

Mais, il y a un mais, vous n'indiquez pas quelle version de Delphi ni quel framework vous utilisez !

Il n'y a pas de boucle dans ce code, si le point est en plein milieu, cela ne fait

Code:

---

1 2 3 4 5 6 7

Ch := PAnsiChar(Edit2.Text); ct:= StrLen (Ch); if ln <= ct then begin if CH = #46 then Ch := #44; Edit2.Text := PAnsiChar(Ch); end;

---

c'est plûtot ceci avec une boucle for

Code:

---

1 2 3 4 5 6 7 8

Ch := Edit2.Text;   for I := 1 to Length(Ch ) do if Ch[I] = '.' then Ch[I] := ',';   Edit2.Text := Ch;

---

ou surtout

Code:

---

Edit2.Text := StringReplace(Edit2.Text, '.', ',', []);

---

Merci à tous pour les réponses rapides :)
j'en ai testé deux qui fonctionne et j'ai pris la plus simple