Sumar edits e ir actualizando

[giulichajari]

Pues me da el problema de que al sacar el punto (.) me graba mal el dato, porque si debe 1.000,00 y pongo 100,00 quedan 900,00, y en la bd graba 9000. Este problema se debe a que usa el punto para los miles y el punto para los decimales, tendria que ser el punto para una cosa y la coma para la otra, me parece

[ecfisa]

Hola giulichajari.

Para saber la definicion de los separadores que tenes configurada, sería útil si copiaras desde el Memo (y pegaras aqui) el resultado de ejecutar este código:

Código Delphi [-]
...
begin
  Memo1.Font.Name:= 'Currier';
  Memo1.Text:= Format('S. mil: %s %sS. dec: %s',
    [ThousandSeparator, #$A#$D#$A#$D, DecimalSeparator]);
end;

Saludos

[giulichajari]

Empezado por ecfisa

Hola giulichajari.

Para saber la definicion de los separadores que tenes configurada, sería útil si copiaras desde el Memo (y pegaras aqui) el resultado de ejecutar este código:

Código Delphi [-]
...
begin
  Memo1.Font.Name:= 'Currier';
  Memo1.Text:= Format('S. mil: %s %sS. dec: %s',
    [ThousandSeparator, #$A#$D#$A#$D, DecimalSeparator]);
end;

Saludos

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?

[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