Código Delphi [-] var x: Currency; begin x:= StrToCurr(DBEdit1.Field.AsString);
var x: Currency; begin x:= StrToCurr(DBEdit1.Field.AsString);
Código Delphi [-] ShowMessage(Format('%m',[x]));
ShowMessage(Format('%m',[x]));