Codigos para MaskEdit

[llSnakell]

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 ... :

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

[rgstuamigo]

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

[Caral]

Hola
No seria mas sencillo asi:

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

[ecfisa]

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:

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 (http://www.programacionfacil.com/borland_delphi:maskedit), MaskEdit 2 (http://www.formauri.es/arrobamasmas/Cursos/index.php?apdo=0402&curso=4_02_00&cap=3k)

Un saludo.

[Caral]

Hola
Maestro aqui te sobro un edit:


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:

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

[ecfisa]

Hola
aqui te sobro un edit:


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

Un saludo.

[llSnakell]

Hola
No seria mas sencillo asi:
Código Delphi [-] (http://clubdelphi.com/foros/#)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

[Caral]

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

[llSnakell]

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 :)

[martita]

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

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