Novata necesita Ayuda

[day_eli]

Buen día compañeros del club....me aqueja una pequeña inquietud, la cual es la siguiente:

¿como hacer para validar que lo primero que un usuario pueda digitar en un TEdit sea la letra 'V' o la letra 'E', seguido de numeros?

Gracias de antemano

[BuenaOnda]

Código Delphi [-]
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      IF Trim(Edit1.Text)=''THEN
      BEGIN
           IF(Key=#69)OR(Key=#86)THEN //E=69 - V=86 .. Utiliza la propiedad "CharCase" en ecUpperCase
              Exit
           ELSE
              Key:=#0;
      END
      ELSE
      BEGIN
           IF Key = #8 THEN Exit; // Tecla 
           IF (Key<#48)OR(Key > #58) THEN
               Key:=#0;
      END;
end;

ESPERO QUE TE SIRVA..

[[AzidRain]]

Usa mejor un contol TMaskEdit...la propiedad EditMask te permite ajustarla a tu gusto de acuerdo con lo que necesites validar. La ayuda viene muy completa y trae ejemplos además de que al momento de colocar la mascarilla puedes probarla para ver si es como la quieres.

[roman]

Pero en este caso, una disyuntiva

lo primero que un usuario pueda digitar en un TEdit sea la letra 'V' o la letra 'E',

¿puede usarse un MaskEdit?

// Saludos

[BuenaOnda]

Claro me llama la atención, me podrías explicar compañero AzidRain como lo haces.....

[[gatosoft]]

Este es un paréntesis dentro de este hilo....

Solo quiero llamar la atención sobre algo muy peculiar aqui, sin ánimo de crear polemica...

Lo que quiero decir es que en "otras circunstancias", los moderadores habrian entrado a este hilo y le habrian "tirado las orejas" a quien inicio el hilo por no poner un titulo mas descriptivo sobre el problema, y lo hubieran remitido a la guia de estilo (sin responder la pregunta)....

Por el contrario ante un titulo tan sugestivo, todos hemos caido prestos en ayuda de la dama... (yo cai, pero vi que ya no necesitaba ayuda, jejejeje)

Bueno, pero eso esta bien... hay que ser caballero y a las damas se les perdona todo, sobre todo en nuestro club, en donde casi no hay...


Saludos.... y esperamos verte mas por aqui day_eli, aqui todas son siempre bienvenidas...

[[David]]

una duda me surge , como sabeis que #69 es la E , de donde obteneis el codigo para cada letra o tecla ?

[Neftali [Germán.Estévez]]

Empezado por David

una duda me surge , como sabeis que #69 es la E , de donde obteneis el codigo para cada letra o tecla ?

Hay infinidad de formas; Por ejemplo aquí, aquí,...

[gabrielkc]

en el evento OnKeyPress del edit1 pones el siguiente codigo

showmessage(inttostr(ord(key)));
Edit1.SetFocus ///se pone porque con el showmessage pierdes el foco


y luego seleccionado el edit presionas la tecla de la que kieras saber el ASCII

[axesys]

Tambien se puede usar el código ASCII que viene con el GExperts desde el delphi