TEdit primer digito no sea número

[alquimista]

Muy buenas...

¿Cual seria el mejor sitio (evento o método) para comprobar que el primer dígito de un Tedit no sea un número?
He puesto en el keypress que solo sean caractereres alfanumericos.


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z','0'..'9','e','E','.','-','+','_',#8]) then Key:=#0;
end;

[Casimiro Notevi]

Quizás te convenga mejor usar una máscara, un TEditMask
Porque de esa manera tienes que comprobar que es el primer dígito y sería más fácil hacerlo en el onexit o en el onchange del edit.
Por eso, mejor, cambia el tedit por un teditmask.

[ecfisa]

Hola alquimista.



procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TEdit do
ReadOnly := (SelStart + SelLength = 0) and (Key in ['0'..'9']);
end;



Saludos :)

[Casimiro Notevi]

No se me habría ocurrido hacerlo así :eek:
Es más, ¿eso funciona? :D

[alquimista]

Y le añado lo primero que puse???

Y si quiero limitarlo a un número determinado de caracteres???
vale con poner: or (SelStart + SelLength >x) ??

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TEdit do
ReadOnly := (SelStart + SelLength = 0) and (Key in ['0'..'9']) OR ((SelStart + SelLength >longitud);
end;

PD: Me parece impresionante...

Gracias..

[Casimiro Notevi]

Y le añado lo primero que puse???
No
.
:)

[alquimista]

Es que si no no me deja borrar caracteres.

En realidad solo quiero este juego de caracteres y que el primero sea letra o _ y limitado a 32 caracteres (numeros o letras o _ solo)
if not (Key in ['A'..'Z','a'..'z','0'..'9','_',#8]) then Key:=#0;
Pero lo pongo detras de lo de ecfisa.

PD:Lo de limitarlo no me va ya que al rebasar la longitud no me deja ni borrar.

Sorry: lo de la longitud se hace con la propiedad MAxLength

[oscarac]

No se me habría ocurrido hacerlo así :eek:
Es más, ¿eso funciona? :D

si funciona, lo curioso es que en ninguna literatura encontre esas propiedades :eek: