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 01:53

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

Mesaj gönderen 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.

Resim
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

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

Mesaj gönderen 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,'.'));
Mücadele güzelleştirir!
executenon
Üye
Mesajlar: 6
Kayıt: 02 Nis 2013 01:53

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

Mesaj gönderen 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.
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

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

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