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

Forumla ilgili sorularınızı buraya sorabilirsiniz.
Cevapla
executenon
Üye
Mesajlar: 6
Kayıt: 02 Nis 2013 12:53

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

Mesaj gönderen executenon » 02 Nis 2013 01:10

.




Ö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.

Resim

Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 705
Kayıt: 28 Nis 2011 09:33
Konum: İstanbul

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

Mesaj gönderen greenegitim » 02 Nis 2013 12:40

Ö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,'.'));
Mücadele güzelleştirir!

executenon
Üye
Mesajlar: 6
Kayıt: 02 Nis 2013 12:53

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

Mesaj gönderen executenon » 02 Nis 2013 02:38

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.

Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 705
Kayıt: 28 Nis 2011 09:33
Konum: İstanbul

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

Mesaj gönderen greenegitim » 02 Nis 2013 04:01

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.
Mücadele güzelleştirir!

Cevapla