Alt programlar yani prosedür ve fonksiyonlar tekrar tekrar çalışması gereken işlemlerin tanımlandığı ve bu tanımı çağırarak tekrarlanan bu işlemleri pratik olarak çalıştırmaya yararlar. Tabi prosedürler sadece işlemi çalışır geçerler (çıkış yoktur) ama fonksiyonlar bu çalışan işlemlerden sonuç olara...
Belli ki elde projenin kaynak kodları yok. Bu yüzden programda herhangi bir değişiklik yapamama gibi bir durum söz konusu. Bir ihtimal SİPARİŞLER tablo adını SİPARİŞLER_TBL şeklinde değiştirip, select top 100 * from SİPARİŞLER_TBL ... şeklinde bir SİPARİŞLER isimli view tanımlaması yapabilirsiniz be...
uses satırına DateUtils unitini ekledikten sonra iki tarih arasındaki dakika farkını MinutesBetween fonksiyonu ile bulabilirsiniz. var a,b: TDateTime; f: Integer; begin a := EncodeTime(20, 5, 0, 0); b := a; f := MinutesBetween( a+b, 0); Caption := (f div 60).ToString + ':' + (f mod 60).ToString; end;
Yıllar önce TImage kopyası bir bileşen yazmıştım. DrawType := dtNone yaparak PicturLeft ve PictureRight özelliklerine atadığınız yeri sol üst köşe olarak baz alarak resmi istediğiniz yere çizmektedir.
Tahmini olarak bütün güncellemeler yüklü ise çalışması lazım ama Windows 7 desteği de kesildi. Onda çalışması gerektiğini iddia edemem. Windows 10 ve güncellemeleri tam sistemde sizin kodunuzu aynen test ettim ve dosya indi. Eğer indy bileşenleri kullanırsanız da delphi 7 de bulunan değil, güncel in...
Windows güncellemelerinin tam olduğuna dikkat edin ya da güncel Indy bileşenleri de kullanabilirsiniz. Malum üzere son dönemde güvenlik yöntemi olarak TLS 1.2'ye geçildiği için güncel kütüphaneleri kullanmak gerekmektedir. Mesela aynı kodu yine delphi 7 üzerinden denedim ve bende çalıştı. Çünkü TLS ...
Elinize sağlık. Aynı işi yapan hazır fonksiyon da kullanılabilir. uses System.JSON, REST.Json; function FormatJSON(const AJSon: String): String; var tmpJson: TJSONValue; begin tmpJson := TJSONObject.ParseJSONValue(AJSon); Result := TJson.Format(tmpJson); FreeAndNil(tmpJson); end; gibi. Tabi yukarıda...
Mesela ADOConnection bileşeninin ConnectionString özelliğine ( örneğindeki gibi ) Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\KlasorAdi;Extended Properties="text;HDR=Yes;FMT=Delimited";Persist Security Info=False verilirse o klasördeki csv dosyalarını ADOQuery ile aşağıdaki gibi SQL öz...