Delphi Cümle Sayısı Bulma

[Kvurgun]

Merhaba hocalarım edittext e girilen metinde kaç tane cümle olduğunu nasıl bulabilirim yardımcı olursanız sevinirim?

[mrmarman]

Önce bir plan yapın.
Şu an yazdığım metin, diğer başlıklarda da olduğu gibi bir çok cümleden oluşmaktadır. Özellikle -ki farklı yapıda cümle yapıları da içerir- iç içe oluşan cümleleri ayırt etmek için sadece noktalama imleri mi sizi yönlendirecek, yoksa Türkçe yazım kurallarına göre, olası unutulmuş noktalama imlerini de kapsayan detaylı bir çalışma mı olacak ?

Metin anlamsız şekilde uzadı. Fikir vermesi açısından böyle bir tarz denedim. Türkçe'ye verdiğim bu küçük rahatsızlık için başlığı okuyanlardan özür dilerim.

[Kvurgun]

Sadece noktaları sayarak cümle sayısını verecek aynı zamanda birden fazla nokta yan yana ise yalnızca birisini sayacak ikinci noktayı saymayacak hala yardımlarınızı bekliyorum...

[mrmarman]

Saymak için değişkendeki tüm boşlukları sil.
Olası yanyana nokta olur da aralarında da olası boşluk varsa elimine etmiş olursun.

Kod: Tümünü seç

strYazi := StringReplace( strYazi, ' ',  '',  [rfReplaceAll]) ;

Sonra yanyana noktaları teke düşürmek için aynısını yap.

Kod: Tümünü seç

strYazi := StringReplace( strYazi, '..',  '.',  [rfReplaceAll]) ;

Şimdi noktaları sayabilirsin.

Kod: Tümünü seç

While pos('.', strYazi) >0 do
begin
  inc( iSay);
  system.delete(strYazi, 1,pos('.', strYazi)) ;
end;
showmessage( 'Cümle Sayısı =' + inttostr(iSay)) ;

Çocuğu kurstan almak için beklerken telefondan yazıyorum, hata varsa affola.

[Kvurgun]

Çok teşekkür ederim hocam elinize sağlık istediğim oldu