Delphi Cümle Sayısı Bulma
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Delphi Cümle Sayısı Bulma
Merhaba hocalarım edittext e girilen metinde kaç tane cümle olduğunu nasıl bulabilirim yardımcı olursanız sevinirim?
Re: Delphi Cümle Sayısı Bulma
Ö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.
Ş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.
Re: Delphi Cümle Sayısı Bulma
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...
Re: Delphi Cümle Sayısı Bulma
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.
Sonra yanyana noktaları teke düşürmek için aynısını yap.
Şimdi noktaları sayabilirsin.
Çocuğu kurstan almak için beklerken telefondan yazıyorum, hata varsa affola.
Olası yanyana nokta olur da aralarında da olası boşluk varsa elimine etmiş olursun.
Kod: Tümünü seç
strYazi := StringReplace( strYazi, ' ', '', [rfReplaceAll]) ;
Kod: Tümünü seç
strYazi := StringReplace( strYazi, '..', '.', [rfReplaceAll]) ;
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)) ;
Re: Delphi Cümle Sayısı Bulma
Çok teşekkür ederim hocam elinize sağlık istediğim oldu