restar o sumar 2 dbedits.text

[gonza_619]

hola mira, me da error de que $75,00 is not a valid float value
ese monto se asigna a un al db edit10 cuando slecciono un registro de la grilla. el campo es money, por habra sido el error?
muchas gracias

[[Caral]]

Hola
Normalmente es por que la coma no la ve como decimal.
Eso se arregla desde el panel de control en configuracion regional.
Lo que me extraña es que lo presente con el signo de dolares $, si es asi, no tengo idea.
Lo unico que se me ocurre es cambiar el campo a double.
Saludos

[gonza_619]

hola vi en otros foros q podia servir esto para eliminar $
Delete(Cadena,1,1);//elimina el primer caracter ascii de cadena Label1.Caption:=Cadena;
o
Label1.Caption := StringReplace(Cadena, '$', '', [rfReplaceAll]);en lugar de label iria el dbedit1.text? luego se asigna solo?
no entiendo lo de las '' es el espacio despues del $?
solo quiero sacar el $ para luego sumar o restar
luego qedaria en float? gracias

perdon lo vi en este foro

a bueno despues tengo q restar como me dijeron antes

if dbedit4.text < dbedit10.text then
begin
dbedit5.text:= FloatToStr(StrToFloat(dbedit10.text) - StrToFloat(dbedit4.text));
end;

seria asi?

[[Caral]]

Hola
La idea es buena, solo que tienes que tener en cuenta que se trata de DBEdits, no de EDits.
Esto lo comento por que al hacer un replace lo hara en el DBEdit y podra sr un problema en la BD.
Para solucionar eso simplemente usa variables que contengan el dato, asi:

Código Delphi [-]

var a,b: string;
begin
if dbedit4.text < dbedit10.text then
begin
  a:= StringReplace(dbedit10.text, '$', '', [rfReplaceAll]);
  b:= StringReplace(dbedit4.text, '$', '', [rfReplaceAll]);
  dbedit5.textt:= FloatToStr(StrToFloat(a) - StrToFloat(b));
end;

Revisa el ejemplo.
Saludos

[gonza_619]

gracias ya me salio lo hice como dijiste al ultimo, muchas gracais