! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Ne dersiniz? Fikirleri daha da geliştirebilmek için her yazılana muhalefet edeceğim, yanlış anlayacak veya alınacak arkadaşlar mesaj yazmasın, yada özelden küfür edebilirsiniz
....[,Ben fırsat bulduğumda kendi metodumu yazacağım, herkes alt etmek için uğraşabilir..
Eğer bu forumda herkes bir şeyler araştırıp onu çevirerek veya çevirmeyerek buraya eklerse muhakkak faydası olacaktır.Buna ilaveten illa kod olarak mı yazmak lazım bazı şeyleri , algoritma olarak versek olmuyor mu ?
var TarKontrol : TDateTime; SadeceAy : String;begin TarKontrol := KutuTarih.Date; DateTimeToString(SadeceAy, 'mm', TarKontrol); if (SadeceAy='02') or (SadeceAy='04') or (SadeceAy='06') or (SadeceAy='08') or (SadeceAy='10') or (SadeceAy='12') then begin Application.MessageBox('Demo Kayıtları Yanlızca 1,3,5,7,9,11. Aylara Yapılabilir ! ',' Dikkat',MB_OK or MB_ICONWARNING) end else{ Bu bölüme kaydet tuşunun yapması gereken kodlar yazılacak............ }end;