Delphi'de ciddi bir yardıma ihtiyacım var

[executenon]

.




Öncelikle merhaba öğretilmemiş bir ders olmakla birlikte, verilen ödevin zorluğu birleşince programın algoritmasını bile kuramıyoruz.Lutfen yardımlarınızı esırgemessenız su odevı yapmak için son 3 günümüz.Şimdiden teşekkür ederim.

[greenegitim]

Öncelikle Başlığı sorumuza uygun bir şekilde verelim.

Kod: Tümünü seç

function KacTane(Str: String;ch:char): Integer;
var
  i: Integer;
begin
  Result := 0;

  for i := 1 to length(Str) do //1'den String'in uzunluğuna kadar
    if Str[i] = ch then  //i'ninci karakter ' ' mi?
      Result := Result + 1;

end;//KacTane

Kod: Tümünü seç

Edit1.Text:=ansirEplacetext(Edit1.Text,'..',''); // çift noktaları sil              . .
Edit1.Text:=ansirEplacetext(Edit1.Text,'  ',' ');
Trim(Edit1.Text); // sağında ve solunda boşluk varsa sil
edt_cumlesayisi.Text:=IntToStr(KacTane(Edit1.Text,'.'));

[executenon]

afedersin ama yazdığın ansireplacestring veya text işte neyse denedinmi bilmiyorum ama doğru çalışıyor.noktalar ile boşlukların sayısını bire indirmemiz gerekiyor.Ve cümlenin başındada hiç nokta olmaması gerekiyor.

[greenegitim]

copy ile ilk karakteri kopyalarsın bir değişkene atarsın sonra
if noktami='.' then copy 2.karakterden editin sonuna kadar 2. copy işlemi yaparsın sonra ilk harfi Edit1.Text := UpperCase(Copy(Text,1,1)); büyütebilirsin.