Problemas para realizar una curp necesito algo de ayuda

[madrid_cr7]

Pues ya me desespere y acudo a ustedes para ver que se soluciona les pongo el codigo y despues lo que sale mal.

var
a,c,d:string;
b,I:integer;
begin
a:=copy(edit1.Text,1,1);
b:=length(edit1.Text);
For I:= 2 to b do
begin
c:=copy(edit1.Text,I,1);
if c='A' then
begin
d:='A';
b:=I;
end;

if c='E' then
begin
d:='E';
b:=I;
end;

if c='I' then
begin
d:='I';
b:=I;
end;

if c='O' then
begin
d:='O';
b:=I;
end;

if c='U' then
begin
d:='U';
b:=I;
end;
end;
edit9.Text:=concat(a,d);
end;

Bueno lo que quiero es copiar la primer vocal del apellido paterno que es el edit1.text pero me copia la ultima vocal. si pongo ALVARADO me pone AO que seria la primera letra del apellido y la primer vocal del apellido sin contar la primer letra pero en vez de eso me pone la ultima vocal.

otras dudas.
si para cerrar el bucle FOR pongo I:=b; me sale error y me dice "Assignment to FOR-Loop variable 'I'" por eso b:=I; pero al parecer no me lo cierra y se va hasta el final y por me copia la ultima vocal.

[[oscarac]]

no entiendo
quieres sacar la Primera Vocal de lo que coloques en el EDIT

ejemplo
si Colocas Alvarado debe mostrar la A ?
si colocas Colmenares debe mostrar la O ?
si colocar swchgener debe mostrar la E ?

[[oscarac]]

P.D.

cuando coloques codigo delphi utiliza el icono del partenon para poder entenderlo bien

[madrid_cr7]

Empezado por oscarac

no entiendo
quieres sacar la Primera Vocal de lo que coloques en el EDIT

ejemplo
si Colocas Alvarado debe mostrar la A ?
si colocas Colmenares debe mostrar la O ?
si colocar swchgener debe mostrar la E ?

si pero la primera vocal a partir de la segunda letra del apelldo pues la variable a la uso para copiar la primer letra del apelldo a:=copy(edit1.Text,1,1);
y la d la estoy usando para la primer vocal a partir de la segunda letra hasta el final.

[[oscarac]]

disculpa pero sigo sin entender
podrias colocar ejemplos de como quieres que te salga?
algo asi como lo que te puse yo

[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:

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)); //  letra 'e'

Un saludo.

[madrid_cr7]

Empezado por oscarac

disculpa pero sigo sin entender
podrias colocar ejemplos de como quieres que te salga?
algo asi como lo que te puse yo

Si mira mira debo hacer que alguien escriba su apellido en el edit1.text y luego copio la primer letra eso ya lo hice con lo siguiente "a:=copy(edit1.text,1,1);

hasta ahi va bien todo ahora con lo que resta del apellido tomar la primer vocal que este. ejemplo

OSAMA - seria la A
ESHJOS - seria la O
PEDROZA - seria la E.

cuando dije a partir de la segunda letra me refiero a que la primer letra ya la copie y esa letra se descarta aunque sea vocal, y con lo que resta del nombre ejemplo de OSAMA la O a la copie tengo que tomar la primer vocal con lo que resta del apellido que seria SAMA.

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;

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



Llamada de ejemplo:
Código Delphi [-] Edit1.Text:= 'Albeniz'; ShowMessage(DameLaSegundaVocal(Edit1.Text)); // letra 'e'


Un saludo.

[madrid_cr7]

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