Cita:
Empezado por ecfisa
Hola madrid_cr7.
Debo reconocer que no estoy menos desorientado que oscarac con la explicación...
Pero si me atengo 'literalmente' a tu pedido:
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)); // letra 'e'
Un saludo. |
Necesito que sea con FOR o con While porque solo eso me permiten usar
por eso quiero ver cual es mi error en el ejemplo que puse arriba ya
tengo toda la curp hecha solo me falta eso es mi unico error