Foros Club Delphi - Codigos para MaskEdit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Codigos para MaskEdit (https://www.clubdelphi.com/foros/showthread.php?t=72158)

Codigos para MaskEdit

Ola

Quisiera saber que sentecias se usan para el maskedit !
bueno no te como se llaman,tampoco si se utiliza igual que los edit.
Como por ejemplo en el edit ... :

Código Delphi [-]var
   ip,op,res:Real;
begin
   ip:=strtofloat(edit1.text); // en vez de StrToFLoat se utiliza FormaFloat ??
   op:=strtofloat(edit2.text);
   res:=ip+op;
   label1.caption:=FloatForm(res); // y asi ?? creo que esta mal :S

Se que el MaskEdit se utiliza para agregar Simbolos como $ puntos, comas ,etc pero no se usarla bien :S

Espero que me ayuden
Atte Snake
Gracias
Saludos

Creo que mejor debes detallar bien lo que quieres o tratas de hacer.:confused:;)
Saludos...

Hola
No seria mas sencillo asi:

Código Delphi [-]var
   ip,op,res:Real;
begin
   ip:= strtofloat(edit1.text);
   op:= strtofloat(edit2.text);
   res:= ip + op;
   label1.caption:= '$ ' + Floattostr(res);
   edit3.Text:= '$ ' + Floattostr(res);

Saludos

Hola llSnakell.

Como te explica rgstuamigo es muy importante que pienses primero en el problema que resolverá tu código. Y que, de tener dificultades, expongas tus dudas con la mayor claridad posible.
La idea es guiarte con la receta y no darte la torta masticada y yá digerida, ya que eso no te va a enseñar mucho...;)

Estoy al tanto del problema que tenés con los textos y voy a ejemplificarte la diferencia entre StrToFloat y FormatFloat de la mejor manera que pueda.

StrToFloat/FormatFloat:

Código Delphi [-]var
   ip, op, res:Real;
begin
 // función StrToFloat: convierte un string a punto flotante 
   ip:= StrToFloat(edit1.text);
   op:= StrToFloat(edit2.text);
   res:= ip + op;
// función FormatFloat: da un formato específico a un nro. punto flotante *)
   Label1.Caption:= Edit1.Text:= FormatFloat('0.00', res); // muestra el resultado con dos dígitos decimales '0.00'

Para ver ejemplos de formatos disponibles usá: Ayuda Delphi (F1) -> FormatFloat function -> Example

El uso del TMaskEdit es parecido al del TEdit, la diferencia es que el anterior, posibilita una máscara para filtrar los ingresos y dar formato a la visualización.
No podemos hacer un tutorial sobre el uso del TMaskEdit en un post, así que te agrego unas direcciones que creo que lo explican de forma simple y con imágenes de ayuda.

Enlaces: MaskEdit 1, MaskEdit 2

Un saludo.

Hola
Maestro aqui te sobro un edit:

Cita:

Empezado por ecfisa (Mensaje 389468)

Código Delphi [-]var
   ip, op, res:Real;
begin
 // función StrToFloat: convierte un string a punto flotante 
   ip:= StrToFloat(edit1.text);
   op:= StrToFloat(edit2.text);
   res:= ip + op;
// función FormatFloat: da un formato específico a un nro. punto flotante *)
   Label1.Caption:= Edit1.Text:= FormatFloat('0.00', res); // muestra el resultado con dos dígitos decimales '0.00'

Ahora que tal asi:

Código Delphi [-]var
   ip, op, res:Real;
begin
 // función StrToFloat: convierte un string a punto flotante
   ip:= StrToFloat(edit1.text);
   op:= StrToFloat(edit2.text);
   res:= ip + op;
// función FormatFloat: da un formato específico a un nro. punto flotante *)
   Label1.Caption:= '$ ' + FormatFloat('0.00', res); // muestra el resultado con dos dígitos decimales '0.00'

Saludos

Cita:

Empezado por Caral (Mensaje 389469)

Hola
aqui te sobro un edit:

O un Label :) ... tenés toda la razón, gracias por la observación.;)

Un saludo.

Cita:

Empezado por Caral (Mensaje 389467)

Hola
No seria mas sencillo asi:
Código Delphi [-]var ip,op,res:Real; begin ip:= strtofloat(edit1.text); op:= strtofloat(edit2.text); res:= ip + op; label1.caption:= '$ ' + Floattostr(res); edit3.Text:= '$ ' + Floattostr(res);

Saludos

Ola si me di cuenta que hubiera sido mas simple asi , pero queria aprender a ocupar el maskedit :)

Quiero aprender lo mas posible !!! :D

Gracias
Saludos

Hola
Nunca he usado el maskEdit, me parece restrictivo.
Si hago un programa, por ejemplo con un formato de fecha y uso el MaskEdit para simplificarme, bien;
Que pasa si ese formato no me sirve si cambio de BD ya que varia entre ellas?.
Pues tendre que cambiar el MaskEdit otra vez.
No se, pero no me gusta que el programa sea tan estricto con las cosas, casualmente es lo que me gusta de delphi, su simpleza y facilidad.
Esa es una de las tantas razones que tengo para no usar el MaskEdit.
Habra quien piense lo contrario, yo prefiero configurar un sencillo edit a mi gusto.
Saludos

Ola
A mi tambien me gusta hacer las cosas simples y no hacer mas trabajo
pero solo queria conocer !!
En caso de cualquier cosa ,para saber mas :D
Gracias y te entiendo perfectamente.

Saludos :)

te recomiendo mejor usar formatcurrr

para enviar datos numericos a edit o a label me ha funcionado mejor
asi:

Código Delphi [-]var
  vendido, abonado, saldo: real;

  saldo:=vendido-abonado;
  edit1.Text:=Formatcurr('##,###,##0.00',vendido);
  edit2.Text:=Formatcurr('##,###,##0.00',abonado);
  edit3.Text:=Formatcurr('##,###,##0.00',saldo);

y si ocuparas el signo de $ podrias agregarlo asi
Formatcurr('$##,###,##0.00',saldo);