¿por que en lugar de utilizar TEdits para manejar valores monetarios no utilizas el TJVValidateEdit de las Jedi?, son gratis y muy muy recomendables.
Además de que te evitas la pena de andar haciendo conversiones de Str a Curr o viceversa:
UnValidateEdit.AsCurrency := FieldByName('unCampo').AsCurrency; // AsCurrency, AsINteger, AsFloat, AsString... como quieras.
UnValidateEdit.AsCurrency := OtroValidate.AsCurrency + 100;
Y para los formatos, simplemente editar una o dos propiedades y te olvidas del formato...
|