Problemas para realizar una curp necesito algo de ayuda

[madrid_cr7]

Empezado por oscarac

hice esto rapidamente

la idea es que despues de digitar el apellido en el edit presiono un boton y me sale el label con la primera letra y la primera vocal

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); Var i: Integer; _PrimeraLetra, _PrimeraVocal, _Letra, _Linea :string; begin _PrimeraLetra := ''; _PrimeraVocal := ''; _Linea := Edit1.Text; _primeraLetra := Copy(_Linea,1,1); For i := 2 to Length(_linea) do Begin _Letra := Copy(edit1.Text, i,1); if (_letra = 'A') or (_letra = 'E') or (_letra ='I') or (_Letra = 'O') or (_letra = 'U') then Begin _PrimeraVocal := _Letra; Break; End; End; Label1.Caption := _PrimeraLetra + _PrimeraVocal; end;


fijate si te es de utilidad

Bueno aqui solo para decir que al final me decidi por tu metodo, aunque ambos funcionan, el tuyo utiliza lo que he visto en cambio el de ecfisa usa cosas que no he visto y no valla a ser que no me lo acepten.

una vez mas gracias a ambos

[mRoman]

Hola ....

Fijate que navengando en buscar de información acerca de como calcular la CURP (en México), di con tu post el cual segun el primer mensaje posteado que dice "Problemas para realizar una curp necesito algo de ayuda", preguntas acerca de como obtener la segunda vocal.....bueno fijate que yo ando en busca de código para calcular la CURP y me preguntaba si pudieras compartir tu codigo aqui en el foro....

Te agradezco.Saludos.