Sumar edits e ir actualizando

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?

Si usas el punto tanto para separador de miles como de decimales, habría que hacer un pequeño cambio a la función anterior:

Código Delphi [-]
...
{ definir punto como separador de miles y decimales }
procedure TuForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := '.';
  ThousandSeparator:= '.';
  Application.UpdateFormatSettings:= False;
end;

function UnFormatCurr(const CurrValue: string): string;
begin
   Result:= CurrValue;
   Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
   Result:= StringReplace(Result, '.', '', []); // <<-- cambio
end;

Saludos

[giulichajari]

No seria:

Código Delphi [-]
procedure TuForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := ',';{coma para decimal}
  ThousandSeparator:= '.';
  Application.UpdateFormatSettings:= False;
end;

[ecfisa]

Hola giulichajarí

Empezado por giulichajari

No seria:

Código Delphi [-]
procedure TuForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := ',';{coma para decimal}
  ThousandSeparator:= '.';
  Application.UpdateFormatSettings:= False;
end;

No si es como comentas en este mensaje:

Empezado por giulichajari

Agrego un Memo y le paso la suma de los valores?Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?

En ese caso el signo "$" y el primer "." impiden el formato al no coincidir con el formato establecido.

De todos modos es una forma muy frágil de obtener el valor ya que depende de las configuraciones locales de los equipos en que funciona la aplicación. Sería mucho mejor tener almacenado el valor que mostras en el Edit en una variable (privada al formulario o global a la unidad) y te evitas todo este lío.

Saludos