evet hocam ama space yede basılmamış olcak :D zaten bi arkadaşın verdiğinde sadece rakam giriilioduha bide başına if gelirse boş sa anlamında if edit1. text='aa' edit yazısı aa sa oluyo Bittik biz bittik

if strtoint(edit1. text)>0 else strtoint(edit1. text)<9 then |sadece aptalların başarısı ders notu ile lçülür|

yok hocam uzak değilim kavramlara bayadır delphi kitabı okuyorum ama dersler yüzünden deneme imkanım olmuyordu.. Şimdi yeni yeni deneme yanılmayla ğrenmeye çalışıyorum.. since 2005 // tbt

Hoca sen eski VBci falanmısın. Gerçek programlama dillerinde string, int, datetime gibi degisken tipleri vardır. Tedit in text tipi string bir değişkendir onun için içine string koyarsın, toplama işlemi iki tane int ister onun için toplamak istediğin şey textboxda ise nce integera çevirmen gerekir. Bu kavramlara uzaksan Programlamaya vb. net ile başlamanı neririm. Microsoftun sitesinden free olarak indirebilirsin Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

delphide hata yakalama olayı şyle olur tryhede hd bla bla; < burada hata olursa except blümüne geçer, hata olmazsa mesaj çıkarmazexceptshowmessage ; <-- hata olursa bu olcakend

: tamam hocam çzdüm sanırım boşluğu sayıdan nce bırakırsan yapıyor işlemi (: fakat sayıdan sonra boşluk koyarsam hata error werip kapanıyor.. nasıl çzerim bu olayı? Şimdi kardeş DELPHI hiç bilmiyorum fakat, byle durumlar için "Exception Handling" olayları vardır hata yakalamamı ne denir galiba türkçesini bilmem. Mantığı Try ve Catch veya bazı yerlerde Final keywordleridir.try bloklarının içne try u yazarsın hata oluşursa catch gibi catch try da oluşan hatayı yakalar try çünkü kendinden sonraki catch e throw yapar yani fırlatır hatayı. Eminim delphi dede vardır byle birşey yada buna benzer handling ler yada assertion lar. Internette google a gir "DELPHI Exception Handling" diye arat bakalımistediğin şeyler mutlaka çıkacaktır belki try catch olmasa bile dilin kendi zelliğine gre hata ayıklama mekanızması vardır sende bunu bulabilirsin çok dküman var delphi için internette eski bir dil olduğu için. Neyse kolay gelsin umarım yardımcı olabildim.

if ( StrScan('0123456789.-', Key) <> nil ) or ( Key = Char ) then begin end else Key := #0; yukarıdaki hedeyi editlerin onkeypress eventine yaz

: evet hocam ama space yede basılmamış olcak :D zaten bi arkadaşın verdiğinde sadece rakam giriilioduha bide başına if gelirse boş sa anlamında if edit1. text='aa' edit yazısı aa sa oluyo anladım teşekkürler :) since 2005 // tbt

: olayı dahada güzelleştirmek gerekirse şyle yapalım if (trim(edit1. text)<>'')and(trim(edit2. text)<>'') thenbegin işlemler end; ordaki "trim" ler boşluk varsa onları temizler yle işlem yapar. daha nceki kodda edit e boşluk bıraksaydık gene işlem yapmaya çalışıp hata vercekti. bylelikle o sorunu aştık. ;) bu arada '' dediimiz ' ve ' birleşimi, yani " deil onu farkettim hocam saol :) bu arada bu kodu tam olarak nereye eklicem editlere mi? since 2005 // tbt

Sor sor haci cekinmeyin, forumda daha once sorulmamissa ve 2+2=? basitliginde olmadigi surece sorun yok,4-5 gundur siteye giremiyorum konunu goruyordumda cevap yazamiyordum :D Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

olayı dahada güzelleştirmek gerekirse şyle yapalım if (trim(edit1. text)<>'')and(trim(edit2. text)<>'') thenbegin işlemler end; ordaki "trim" ler boşluk varsa onları temizler yle işlem yapar. daha nceki kodda edit e boşluk bıraksaydık gene işlem yapmaya çalışıp hata vercekti. bylelikle o sorunu aştık. ;) bu arada '' dediimiz ' ve ' birleşimi, yani " deil

: if edit1. text='' or edit2. text='' thenshowmessage ;end; al hocam belki ufak hatalar olablir phple uğraşıyom sabahtan beri birbirine girdi herşey dene bakalım hocam diğer arkadaşın msjda da merak ettim.. edit1. text=''burdaki '' boş bırakılmışsa mı demek oluyor? since 2005 // tbt

: if strtoint(edit1. text)>0 else strtoint(edit1. text)<9 then hotboy bunu yazdı: if ( StrScan('0123456789.-', Key) <> nil ) or ( Key = Char ) then begin end else Key := #0; yukarıdaki hedeyi editlerin onkeypress eventine yaz wert hocam sağolasın.. hotboy.. hocam bir de bana yazdıklarının mantığını anlatırsan çok makbule geçer.. ayrıca snde çok sağol.. since 2005 // tbt

yazdığın kodu buraya bi eklede ona gre yardımcı olalım

sen telaş yapma kardeşim Compü bi postunda sormaktan çekinmeyin demişti Delphi için ben yanlış birşey yapmıyorum sormadan nasıl ğrenebilirim.. since 2005 // tbt

: Sor sor haci cekinmeyin, forumda daha once sorulmamissa ve 2+2=? basitliginde olmadigi surece sorun yok,4-5 gundur siteye giremiyorum konunu goruyordumda cevap yazamiyordum :D saol hocam :) walla baya baş ağrıtcam ama kusuruma bakmazsınz artk :) since 2005 // tbt

4 Label, 2TextBox, 4 Button4. Label = lblSonucButton1 elblSonuc. Caption:=IntToStr(StrToInt(Edit1. Text)+StrToInt(Edit2. Text)); Button2 e lblSonuc. Caption:=IntToStr(StrToInt(Edit1. Text)-StrToInt(Edit2. Text)); Button3 elblSonuc. Caption:=IntToStr(StrToInt(Edit1. Text) StrToInt(Edit2. Text));Button4 elblSonuc. Caption:=FloatToStr(StrToInt(Edit1. Text)/StrToInt(Edit2. Text)); since 2005 // tbt

anladım sanırım (: yardımlar içn sağol bir de 2. postumda yazdığım şey mümkün mü? Mesela 2 TextBox a da sayı girilmeden Enable zelliği false olsun..? since 2005 // tbt

Şimdi hocalar delphiye başlayalı 1 hafta oldu sorum kolay gelebilir lütfen ezmeyin :) Basit bir hesap makinası yaptım.. Fakat EditBox lara sayıdan farklı bir şey yazınca hata verip kapanıyor program.. Bunu nasıl engelleyebilirim? sayıdan farklı birşey yazınca Bir mesaj çıkıp Lütfen Bir Sayı Girin dicek mesela.. Yardımlar için şimdiden teşekkürler.. DipNot: Ayrıca ben ğrenirken, "zaten boş boş duruyorum ğrenmende benimde payım olsun biryerde takılrsan sorarsın" diye msn vermek isteyen olursa bana zelden ulaşırsa çok makbule geçer :) since 2005 // tbt

hmm anladım sanırım teşkler.. since 2005 // tbt

bu arada şimdi farkettim TextBox un birini boş bırakınca da uyarı verip kapanıyor onada bir çzüm bulmak lazım :( since 2005 // tbt

Ama nolur her yanıldığında konu açma:D eski bir dost mu aradınız?

: anladım sanırım (: yardımlar içn sağol bir de 2. postumda yazdığım şey mümkün mü? Mesela 2 TextBox a da sayı girilmeden Enable zelliği false olsun..? şyle yap;if (edit1. text<>'') and (edit2. text<>'') then begin buraya kodlar end;

doğru mu yazıyorum bilmiyorum ama mantık olarak şyle birşey düşündüm olabilir mi..? if edit1. text>0 else edit1. text<9 thenbeginend gibi.. büyük ihtimalle yanlış yazdım zaten ama mantık olarak sordum since 2005 // tbt

if edit1. text='' or edit2. text='' thenshowmessage ;end; al hocam belki ufak hatalar olablir phple uğraşıyom sabahtan beri birbirine girdi herşey dene bakalım Bittik biz bittik

tamam hocam çzdüm sanırım boşluğu sayıdan nce bırakırsan yapıyor işlemi (: fakat sayıdan sonra boşluk koyarsam hata error werip kapanıyor.. nasıl çzerim bu olayı? since 2005 // tbt

eğer girilen tuş 123456789.- iiçnden deilse yada silme tuşu deilse girilen hedeyi geri çevir edit: o koddan "-" yi çıkar istersen ama nokta kalsın