delphi baş belası

[b@dboyvz]

Hocalar ben garib bi öğrenciyim bizim hoca sürekli ödevler verio sayfayı keşfettik ve soruyorum izninizle nolur yardım edin kafamda saç kalmadı düşün düşün...
Bir cümledeki istenilen herhangi bir karakterin başka bir karakterle değiştirilmesini sağlayan program hazırlayınız. Cümle, değiştirilecek harf yeni harf kişi tarafından girilecektir. (Ansireplacestr, Ansireplacetext veya benzeri komutlar kullanılmayacaktır.) (15 Puan)
sanki o komuları bilioz da allah allah:O(
Örnek Cümle Antalya değiştirilecek harf. ‘a’ yeni harf ‘b’ sonuç Bntblyb
en kısa zamanda cvp verirseniz sevinirim...
simdiden saolun...

[fahrettin]

Sayın b@dboyvz,
öncelikle aramıza hoşgeldiniz der hemen ardından tahsil hayatınızda başarılar dilerim...
Forumumuz hakkında kısa bir kaç bilgi..
1. Forum kurallarını okumayan veya okusa da uymayanları pek sevmeyiz. Bu tür durumları önce ikaz ederiz, bu halin devamı durumunda üyeliğin silinmesine uzanan kısa bir süreç yaşanır...
2. Bu forum, hazır programların veya ödevlerin havada uçuştuğu bir platform değildir.
3. Forumda çok fedakarca insanlara yardım etmee hazır çok ama çok insan var. Hele bir de öğrenci iseniz insanlar daha da çok yardım etmek isteyecektir....
4. ANCAAAAAKKKKK, problemini çözmek için hiç gayret göstermeyen belki göstermiş de olsa bu gayretini burada ortaya koymayıp sadece soru sorup karşılığında kod talep edenlere yardım edildiğini hiç hatırlamıyorum....
5. Naçizane tavsiyem konu ile ilgili yazdığınız kodları burada bizlerle paylaşıp nerede takıldığınızı ve ne tür hatalarla karşılaştığıınızı söylemeniz olacak. Emin olun bu durumda çok hızlı cevap alacaksınız. Bunun örneğini çoook gördüm....

Kolay gelsin....

[ikra]

istisna olarak cevap verelim fahrettin abi. bu seferlik böyle olsun

Kod: Tümünü seç

var Str : string;
    Str1 : string;
    i : word;
begin
   while pos('a',Str) do
   begin
      i := 0;
      repeat
         inc(i);
      until Copy(Str,i-1,i) = 'a';
      Str1 := copy(Str,0,i-1) + 'b' + Copy(Str,i+1,Length(Str));
      Str := Str1;
   end;
end;

umarim isini görür.
basarilar...

[ulu coder]

Copy komutu işinizi görecektir.
copy komutu, bir kelimeden istenen harften başlanarak istenen uzunlukta karakter alınmasını sağlar

Kod: Tümünü seç

harf:=copy(kelime,sira,1);
//bu kodla, harf değişkenine, kelimenin 'sira' nolu harfinden başlanarak bir karakter kopyalanır.

Bir döngüyle bu işi kolayca yapabilirsiniz.
Aslında siz yapsanız daha iyi olur ama yine de cevabı yazayım;

Kod: Tümünü seç

Function donustur(kelime:string):String;
var
i:integer;
harf,sonuc:string;

begin
  sonuc:='';
  For i:=1 to length(kelime) do //Length(kelime)=kelimenin uzunluğu
  begin
    harf:=copy(kelime,i,1);
    if harf='a' then harf:='b';
    sonuc:=sonuc+harf;
  end;
  result:=sonuc;
end;    

Kolay gelsin

[rsimsek]

@b@dboyvz kardeşim bir programcı namzeti olarak değil de verilen bir görevi, günü kurtarma telaşı ile aramıza hoşgeldin

Fahrettin hocamın tavsiyelerini dikkate alırsın umarım. Duygusal davranıp sağolsunlar yardım etmeye çalışan diğer arkadaşlarımızın çabaları inan bu durumda kendini geliştirmene fazla bir katkısı olmayacaklardır

[fduman]

kafamda saç kalmadı düşün düşün...

Düşünmek iyidir.

[cozturk]

Belki bu arkadaş sorduğu sorunun cevabını okumak için tekrar buraya gelemez. Cevapları CDye çekelim kurye ile gönderelim

Başka forumlarda gördüğüm bazı arkadaşlar, şifresini unutmuş giremiyor. Orada parayla değil ya git başka mail al onunla üye ol diyorum onu bile yapamıyor. rapidshare'den dosya indiremiyor vs.