memoda harf duzeltme nasil?

[sr1111]

merhaba
soyle basit bir sey yapmak istedim ama yapamadim.
yardimci olursaniz sevinirim.

memodaki kelimenin
mesela sırılsıklam kelimesi

sırilsıklam, sırılsiklam. sırilsiklam kelimelerinden biri gecse ilk sesli harf ı ise diğer sonra gelen i seslilerinide ı yapmasini istiyorum.
yani sırılsıklam olacak.

ısirgan = ısırgan
kılik=kılık
fıransali=fıransalı
sırilsiklam= sırılsıklam

gibi olacak sekilde.

memo1 deki butun kelimeler bu sekilde
eger kelimenin ilk gelen sesli harfi ı ise eğer varsa sonraki gelen sesli i harfleride ı
harfiine donusmeli.

serkand

[aslangeri]

s.a.
önce memonun lines özelliği ni kullanarak satırı bir değişkene at
sonra bu string değişken içersindeki kelimeleri sırası ile al (pos,copy,delete fonksiyonları işini görecektir.)
sonra kelime içinde ki harfleri sıra ile kontrol ederek I veya i olup olmadıklarını kontrol et.
ilk once ı harfini bulursan sonraki ı ları i olarak değiştir.
kolay gelsin.

[sr1111]

aleykumselam
buradan sonra nasil yapacagim. ustalar bir el atsa iyi olacak.

const
sessizler='bcçdfgğhjklmnprsştvyz';
var
i:integer;
begin
for i := 1 to length(Memo3.Text) do
begin
if

[sr1111]

kelimein ilk ı harfinden sonraki i leri nasil yazacagim.

[lom]

Kod: Tümünü seç

memo1.Lines.Text :=AnsiReplaceText(memo1.Lines.Text,'ı','i');