Problemas para realizar una curp necesito algo de ayuda

[ecfisa]

Hola madrid_cr7.


Si en Edit9.Text tiene que quedar la primera vocal a partir del segundo caracter del apellido, tu código reformado quedaría así:

Código Delphi [-]
var
  i:integer;
begin
  i:= 2;
  while not (UpCase(Edit1.Text[i]) in ['A','E','I','O','U']) do Inc(i);
  Edit9.Text:= Edit1.Text[1]+Edit1.Text[i];
end;

Te explico que es lo que hace: La primera letra hay que ignorarla sea vocal o consonante y a partir de la segunda recorremos la cadena incrementando la variable 'i' hasta que encuentra una vocal. Alli termina el ciclo while y por supuesto el valor 'i' tiene la posición de la
primera vocal encontrada a partir del segundo caracter. Esa posición es usada como subindice de Edit1.Text[i] para obtener el caracter
buscado.
La función UpCase convierte a mayúsculas lo que estamos comparando, por que no es lo mismo 'A' que 'a', sin ella tendría que haber echo:

Código Delphi [-]
  while not (Edit1.Text[i] in ['A','E','I','O','U','a','e','i','o','u']) do

Al finalizar el ciclo while, se asigna a Edit9.Text la vocal encontrada en Edit1.Text[i].

Si hay algo que no te quedó en claro decimelo y lo vamos a ir tratando de aclarar.

Un saludo.