como agrego '/' a un tedit??

[Fingolfinmx]

jaja ahora entiendo , por ke me gusta mas resolver mis dudas por chat, la verdad estoy de Auto didacta en el Delphi 5, y no se como aplicar el MaskEdit, soy un Completo NOOOOOB jaja pero que mejor manera de aprender que echando a perder

[ContraVeneno]

... ¬¬

¿porque no usar un DTPicker en lugar de un mask?
¬¬

[[xEsk]]

En mi opinion hace bien de hacerse el mismo las rutinitas, y mas si dice q esta aprendiendo, ya q la mejor forma de aprender es hacerlo por ti mismo, y no cojer un componente q ya te lo da todo hecho. Mas adelante cuando ya tienes una base un poco solida, entonces si es logico usar componentes q te hacen la vida mas facil.

Esta es mi humilde opinion.

Saludos.

[HySTD]

Hola buenas, pienso que este problema se puede resolver de una manera mucho mas facil:

Código Delphi [-]
...
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
contador: integer;
public
{ Public declarations }
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
contador:=contador+1;
if ((contador mod 2)=0) and (contador>2) then begin
Edit1.Text:=Edit1.Text+'/';
Edit1.SelStart:=Length(Edit1.Text);
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
contador:=1;
Edit1.Text:='';
end;
 
 
{contador es una variable de tipo entero, que puedes declarar por ejemplo en el private de la TForm. Debes inicializarla: contador:=1; en el OnCreate de la Form, tal y como he puesto en el ejemplo...}

Saludos

[ContraVeneno]

¿como o porque es eso más fácil que utilizar un DTPicker?

[Fingolfinmx]

Gracias HySTD funciona bien el codigo y aclaraste perfectamente mi duda,
use el maskedit que me dijeron y no me agrado mucho. supongo que esta linea :

Edit1.SelStart:=Length(Edit1.Text);

posiciona el cursor de texto para ke puedas estar almacenando un edit1.text y escribiendo continuamente como aqui:

Edit1.Text:=Edit1.Text+'/';

sin que te borre la otra entrada.

muchas gracias por su tiempo. seguire molestandolos mas a futuro tenganlo por seguro.

[roman]

¿Y qué pasa cuando borras un caracter con BackSpace o DELETE? ¿Lo has probado?

// Saludos

[HySTD]

Eso tiene facil solucion. Haces que el contador sólo cuente cuando lo desees:

if (key<>VK_DELETE) or (key<>VK_SPACE) then begin
inc(contador);
...
end;

Asi ignoras si se pulsa espacio o supr.

La unica ventaja de realizarlo de esta manera es que así escribes tu el código (que es mas divertido), a utilizar otros componentes y/o otras funciones ya implementadas, que por otro lado están muy bien... Cada uno hace lo que quiere, y el quería usar un TEdit y utilizar el evento OnKeyPress.

Saludos