Kelime ve cümle sayısı bulma

[gokhanri]

iyi günler kardeşlerim abimlerim . delphi dilinde hiç programlamam yoktur ve üniversitemden delphi ile yapılacak proje verdiler ve ben hiçbir şekilde anlamıyorum ve yapamıyorum . yardımcı olursanız çok ama çok sevinirim .
program şu şekildedir ;


Program içinde butona basıldığı zaman ise :



yardım edecek kişiler için şimdiden çok teşekkürler .

iyi günler herkeze ....

[true_false]

girilen cümle Editini bir TstringList'in commatext içerisine at. delimeter karakterini boşluk ver. Bu sana her boşluk karakterini dördüğü yerde list item oluşturacak yani.

Kod: Tümünü seç

var
 alist : TstringList;
 i:integer;
 begin
   alist := TstringList.create;
   alist.delimeter := ' ';
   alist.commatext:= girilencumle.text;
   for i:=0 to alist.count -1 do
   begin
         // bir metod yaz ve bu metoda istediğin kelimeleri düzgünleştiren işlem adımlarını uygula..
         yazdiginmetod(alist.strings[i]);
   end;
   alist.free;
 end;
 //delphim yok kafadan yazdım. affola.

yukaridaki kod satırında boşluk karakteriyle ayrılmış bir bir kelimeyi göreceksin ... ları olan blokları sil ve temiz haliyle yeni bir liste at gerisi senin kuracağın algoritmaya kalmış ama yukarıdaki kod satırından başlaman senin yararına olacaktır..

[gokhanri]

girilen cümle Editini bir TstringList'in commatext içerisine at. delimeter karakterini boşluk ver. Bu sana her boşluk karakterini dördüğü yerde list item oluşturacak yani.

Kod: Tümünü seç

var
 alist : TstringList;
 i:integer;
 begin
   alist := TstringList.create;
   alist.delimeter := ' ';
   alist.commatext:= girilencumle.text;
   for i:=0 to alist.count -1 do
   begin
         // bir metod yaz ve bu metoda istediğin kelimeleri düzgünleştiren işlem adımlarını uygula..
         yazdiginmetod(alist.strings[i]);
   end;
   alist.free;
 end;
 //delphim yok kafadan yazdım. affola.

yukaridaki kod satırında boşluk karakteriyle ayrılmış bir bir kelimeyi göreceksin ... ları olan blokları sil ve temiz haliyle yeni bir liste at gerisi senin kuracağın algoritmaya kalmış ama yukarıdaki kod satırından başlaman senin yararına olacaktır..

vallaha hocam hıc bı bılgım yok delphide bi yardım edip dedıgınız şekilde halledıp atma sansınız var ise cok mutlu olurum . delphi ile hiç aram yok .

[true_false]

Halledip atma şansım malesef yok.

[cengaver]

Şunları sırasıyla yaparsan amacına ulaşırsın;

Kelime saymak için;
1) Yan yana boşluk karakterlerini teke indirge (#32)
2) Boşluk karakterlerini say.
3) Sonuç = saydığın boşluk karakterleri + 1'dir.

Cümle saymak için ise şunları yapmalısın;
1) Cümle ayracı olan işaretleri belirle. (Mesela nokta, ünlem, noktalı virgül, iki nokta üstüste gibi...)
1) Cümle ayracı olan karakterlerin yanyana olanlarını teke indirge
2) cümle ayracı karakterlerini say.

Not: Tekilleştirme ile ilgili olarak Form görüntüsündeki "Düzeltilmiş Hali" kısmında yer alan yazıyı kullanabilirsin...

[mrmarman]

Forumda iki kimlikle mi bulunuyorsun ?

bkz. bu başlık

[Kvurgun]

aynı üniversite de olabilir miyiz?

[mrmarman]

Hadi bakalım, o zaman beraberce çözümü paylaşırsınız.