Preciso formatar um edit no formato 0,00
em FireMonkey, utilizando de preferência o evento ChangeTracking
.
Tentei utilizar o seguinte procedimento que não resolveu.
procedure FormatadorMoeda(pEdit: TEdit);
var
loStr: string;
loDouble: double;
begin
loStr := pEdit.Text;
if loStr = EmptyStr then
loStr := '0,00';
loStr := Trim(StringReplace(loStr, '.', '', [rfReplaceAll, rfIgnoreCase]));
loStr := Trim(StringReplace(loStr, ',', '', [rfReplaceAll, rfIgnoreCase]));
loDouble := StrToFloat(loStr);
loDouble := (loDouble / 100);
pEdit.Text := FormatFloat('###,##0.00', loDouble);
pEdit.SelStart := Length(pEdit.Text);
end;