Hola madrid_cr7.
Debo reconocer que no estoy menos desorientado que
oscarac con la explicación...
Pero si me atengo 'literalmente' a tu pedido:
Cita:
si pero la primera vocal a partir de la segunda letra del apelldo
|
Debería ser:
Código Delphi
[-]
function DameLaSegundaVocal(Cad: string): char;
var
i: Integer;
begin
i:= 2;
while not (UpCase(Cad[i]) in ['A','E','I','O','U']) do Inc(i);
Result:= Cad[i];
end;
Llamada de ejemplo:
Código Delphi
[-]
Edit1.Text:= 'Albeniz';
ShowMessage(DameLaSegundaVocal(Edit1.Text));
Un saludo.