Sumar edits e ir actualizando

[giulichajari]

Empezado por AgustinOrtu

No no, ojo, lo que tenés en el texto del edit siempre es un String.

Para guardar ese valor podes usar sentencias sql, usando insert o update, y pasando como parámetro el valor del edit. Deberías convertirlo a currency con StrToCurr

Si tenés dudas con esto solamente avisa por acá, que ahora estoy desde el móvil y me da pereza escribir código

Ps ya se que con un insert, pero el contenido del edit esta como Currency por el evento que me paso ecfisa, para que se vea el signo pesos, entonces si hago STRToFloat para guardar el valor en la deuda, no va a funcionar, eso es lo que pregunto.

[ecfisa]

Hola giulichajari.

Si el contenido de la propiedad Text del TEdit que mencionas, tiene un formato como por ejemplo '$ 90.780,33', podrías hacer:

Código Delphi [-]
function UnFormatCurr(const CurrValue: string): string;
begin
   Result:= CurrValue;
   Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
   Result:= StringReplace(Result, '.', '', [rfReplaceAll]);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= '$ 1.250,25';
  Edit2.Text:= FloatToStr(StrToFloat(UnformatCurr(Edit1.Text)) + 1000);
end;

Saludos

[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;