İbrahim Halil KANKAYA Tutuşup can veren pervanelerde

delphican.com object pascal dili sevenlerin bir araya geldiği dil ve ide üzerinde soruların ve makallelerin yayınlandığı platform.

Nereden rastgeldim bilmiyorum ama iyiki rastgelmişim yazı arşivini henüz okumadım ama bu aralar muhabbet teorisinin bağımlısı oldum diyebilirim. Değerleri katılımcıların katılmış olduğu pozitif bilimin konuşulduğu istişare edildiği program tavsiyedir.

Programı yazmakta ki amacım her ne kadar Tesmer Staja Giriş sınavına hazırlanan adaylar için olsa da başka sınavlar içinde kullanılabilir. Programın Amacı: Kullanıcısının bilgisayar başında vakit geçirdikleri sürede kendi belirledikleri 1-120 dk  zaman aralığında  Örnek her 20 dk da bir ekrana bir soru getirmek. Soruların formatı sizin oluşturduğunuz bir klasörde …

Uygulamamda Güncel delphi sürümleri ile gelen native skinleri kullanmak istedim her şey çok güzeldi taaki cxGridPopupMenu ye ihtiyacım olduğunda bana aşağıdaki gibi bir görüntü vermesi ile hüsran oldu Çözümü https://stackoverflow.com/questions/24596253/delphi-xe6-issue-with-styled-menus-with-invisible-items https://github.com/rruz/vcl-styles-utils indirip zipten çıkardıktan sonra comon klasörünü Tools->Options->Library->Library Path D:\SIZIN_DOSYA_YOLUNUZ\vcl-styles-utils-master\Common ve D:\SIZIN_DOSYA_YOLUNUZ\vcl-styles-utils-master\delphi-detours-library Pathlerini Ekliyoruz. Daha sonra projemize Vcl.Styles.Utils.Menus, Vcl.Styles.Utils.SysControls, Vcl.Styles.Utils.SysStyleHook, …

C kursunda yazdığımız ve hoşuma giden bir örneği paylaşmak istiyorum burada kodu ben pascal diline de çevirdim. oyunun uzunca açıklaması https://en.wikipedia.org/wiki/Craps kısaca iki zar atıyorsunuz atığınız zarın toplamı 7 veya 12 ise kazanıyorsunuz eğer 2 ,3,12 ise kasa kazanıyor diğer sayılar geldiğinde örnek 6 atınız burada oyunun kuralları değişiyor ve …

Opencart 2x versiyonları için yazılmış bu program ile 3 farklı müşteri gurubunun (default dahil) fiyatlarını güncelleyebilirsiniz. program ile neler yapabilirsiniz Var olan tüm ürünlerinizi programa indirir ürün ilk görselini tabloda görüntüleyebilirsiniz (İlk resmi de bilgisayarınıza indirir) ürünün Ana fiyatının güncellenmesi bayii1 bayii2 gibi tanımladığınız müşteri grublarının  % iskonto oranını girerek …

opencart ayarlarından fiyatlar sadece üyelere görünsün olarak seçtiğinizde giriş işlemini gerçekleştiren kişiler fiyatları görebiliyor sepete ekle buttonunu da kaldırmak istiyorsak catalog/view/theme/default/template/product/ içerisinde ki category.tpl dosyasını düzenleyip <div class="button-group"> <button type="button" onclick="cart.add('<?php echo $product['product_id']; ?>', '<?php echo $product['minimum']; ?>');"><i class="fa fa-shopping-cart"></i> <span class="hidden-xs hidden-sm hidden-md"><?php echo $button_cart; ?></span></button> <button type="button" data-toggle="tooltip" …

eger yıl 4’e tam bolunuyor ise ve aynı zamanda 100’e tam bolunmuyor veya 400’e tam bolunuyor ise artık yıldır. 1900 yılı artık yıl degildir… uses System.SysUtils; function IsLeap(year:Integer): Boolean; begin IsLeap := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; …

function IsPrime(Number: Cardinal): Boolean; var cDivisor, cMax : Cardinal; begin Result := False; if Number and 1 = 0 then Exit; cMax := Trunc(Sqrt(Number)) + 1; cDivisor := 3; while cMax > cDivisor do begin if Number mod cDivisor = 0 then Exit; Inc(cDivisor, 2); if Number mod cDivisor = …