String harf büyütme

[greenegitim]

Merhaba resimde görüldüğü gibi bir programda noktadan sonraki ilk karakterin ilk harfini büyük nasıl yapabilirim ve örnekte görüldüğü gibi sevmek kelimesininde ilk harfini nasıl büyük yapabilirim yapamadığım kısım sevmek kelimesine kadar olan boşluğu bulabiliyorum ama noktadan sonraki harfi (noktadan sonra boşlukta olabiliyor) büyük harfe çevirmek için sırasını nasıl bulabilirim Resimde herşey açık anlatılmış aslında.

[notname]

Kod: Tümünü seç

if pos('sevmek',edit1.text)<>0 then
showmessage(uppercase(copy(edit1.Text,pos('sevmek',edit1.text),1)));

[greenegitim]

Merhaba noktadan sonra boşluk olabiliyor tekrar nokta olabiliryor ben nokta veya boşluktan sonraki karakterin a,b,c gibi bir harf olup olmadığını ve kendinden önceki karakterin nokta olup olmadığını nasıl kontrol edebilirim.

[executenon]

dizi ile örneğin i yi metin uzunluğunca devam ettirdin diyelim. if i-1=' ' then Uppercase(midstr(metin,i,1)) gibi ama bu kod ile bütün kelimeler büyür noktadan sonraki boşluğu aratmamız gerekiyor.ama bende yapamadım.