Hola madrid_cr7.
Cita:
|
Necesito que sea con FOR o con While porque solo eso me permiten usar...
|
Entonces, no veo el problema... Mirá con atención el código que te puse más arriba:
Código Delphi
[-]
...
var
i: Integer;
begin
i:= 2;
while not (UpCase(Cad[i]) in ['A','E','I','O','U']) do Inc(i);
...
Si te referis a que no te permiten usar una función, incorporá a tu código la porción de la función correspondiente a la extracción de la primera
vocal a partir de la segunda letra.
En tu caso basta con reemplazar
Cad[i] por
Edit1.Text[i] (que es donde está el apellido) y al salir del ciclo
while, tendrás la vocal buscada en
Edit1.Text[i] ...
Edito: Veo que la variable 'i' está declarada en tu procedimiento, función o cuerpo de programa. Por lo que supongo que deberías usar otra como contador del while.
Un saludo.