Funkce "najdi samohlásku" – Delphi – Fórum – Programujte.com

Je nějaká funkce, která by vrátila pozici jedné ze samohlásek a,e,i,o,u v textovém řetězci? Co jsem se díval na funkce na hledání stringu tak to všechno hledá přesnou shodu.

Není. Brání ti něco si ji napsat?

#2 gna
Takže musím použít ansipos() a volat ji 5x pro každé písmeno?

Dejme tomu že bych to napsal takto:

a := ansipos ( 'a', s);
e := ansipos ( 'e', s);
i := ansipos ( 'i', s);
o := ansipos ( 'o', s);
u := ansipos ( 'u', s);

Jak bych potom měl zjistit, která z proměnných a,e,i,o,u obsahuje nejmenší hodnotu? V závěru mi ale jde jen o tu hodnotu, získat tu nejmenší (je-li větší než 0).