.
Ö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.
Delphi'de ciddi bir yardıma ihtiyacım var
-
- Üye
- Mesajlar: 6
- Kayıt: 02 Nis 2013 01:53
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: Delphi'de ciddi bir yardıma ihtiyacım var
Ö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!
-
- Üye
- Mesajlar: 6
- Kayıt: 02 Nis 2013 01:53
Re: Delphi'de ciddi bir yardıma ihtiyacım var
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
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: Delphi'de ciddi bir yardıma ihtiyacım var
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.
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!