Delphi Forum

Doğrulama ile ilgili örnek...
Kolay Gelsin.

Açıkcası ilk yapmaya çalıştığım, bahsettiğiniz gibi obj.invoke('guncelle') şeklinde çağırmaktadı.Fakat beceremedim. :D Yeni hali : procedure TForm1.Button1Click(Sender: TObject); var r: TRttiContext; rtype: TRttiType; riType: TRttiInstanceType; obj: TValue; begin r := TRttiContext.Create; for rtype ...

{ İsmail Kocacan TPredicate Kullanımı } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TStringListHelper = class helper for TStringList function Where(Condition: TPredicate<Integer>): TStringList; end; TForm1 = class(TFo...

{İsmail Kocacan} unit uTasks; interface uses SysUtils, ExtCtrls, Forms; type TTask = class private FProc: TProc; FTimer: TTimer; procedure OnTimer(Sender: TObject); public procedure Run(AProc: TProc); procedure Start; procedure Stop; constructor Create; destructor Destroy; end; implementation { TTa...

{ By İsmail Kocacan } unit uReflection; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Rtti, System.TypInfo; type TForm1 = class(TForm) Button1: TButton; lBox: TListBox; proce...

// Bir class'tan türeyen alt class'ların listesini döndürür uses Rtti, TypInfo, Classes; function GetSubClassList(AClass: TClass): TStrings; var atypes:TArray<TRttiType>; atype:TRttiType; alist:TStringList; begin r:=TRttiContext.Create; atypes:=r.GetTypes; alist:=TStringList.Create; for atype in aty...

Merhaba Nesnelerin, parametresiz prosedürlerini, isimden çağırmak için yazdığım bir prosedür. uses Rtti, Classes; procedure CallProc(AClass: TClass; AInstance: TObject;ProcedureName: string); var r:TRttiContext; t:TRttiType; params:array of TValue; begin r:=TRttiContext.Create; t:=r.GetType(AClass);...

Dataset’teki Verinin, kaydedilmeden önce( TBL_UserBeforePost) doğrulanması için, TField class’ına Eklenti olarak yazdığım fonksiyonlardır. //ismail Kocacan unit uValidation; interface uses SysUtils, Variants, Classes, DB,RegularExpressions; type TFieldValidatorHelper=class Helper for TField public f...

Bir üstad benimle paylaştı.Ben sizinle... Bildiğim kadarı ile "IIF" komutu firebird sql de var.Ve SQL server 2012'ye de ekleneceğini gördüm. Delphi : function iif(Condition: boolean; T, F: variant): variant; begin if Condition then Result := T else Result := F; end; procedure TForm1.FormCr...

Diyelim ki elinizde Key ve Value lardan oluşan bir Object List var. Key'iniz String. Value niz Sayı. Sizde Valuye göre sıralamak istiyorsunuz. :D Çözüm : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Defaults, Generi...

Rapor önizleme yapılıp ,daha sonra resim formatında export ettikten sonra.Rapor resimlerinin gösterilmesi ihtiyacı için hazırladım. var Page: TfrxReportPage; begin Page := TfrxReportPage.Create(frxReport1); Page.BackPicture.LoadFromFile('dosya.jpg'); frxReport1.PreviewPages.AddPage(Page); frxReport1...

Bilindiği üzere artık delphi de de Regular Expressions kullanabiliyoruz.Bana da ömrü hayatım boyunca bugün kullanmak nasib oldu :mrgreen: Edite bilgi girerken ; İlk iki karakteri ÜP ile başlayıp, devamındaki 7 karakterin sayısal olması, tire(-), T1,T2,T3 gibi şeklinde bir giriş olacaktı. Yani ; ÜP12...

Bilindiği üzere MessageDlg daki ibareler ingilizce. Nasıl türkçeleştirebiliriz. Forumda da baktığım pas dosyasını düzenleyerek çözüme ulaşanları gördüm. Bu da benim çözümüm. Biraz uğraştırdı ama uğraşmaya değer... Ana Formunuza bir tane TApplicationEvents nesnesi bırakın. private { Private declarati...

Diyelim ki TcxExtLookupComboBox ve TcxGrid ile lookUp gerçekleştiriyorsunuz. Ve yapmak istediğiniz açılan listeden seçili satırın değerlerine erişmek. procedure TForm1.cxExtLookupComboBox1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); var RecordIndex: Integer; AValue: Variant; begin if ...

TcxBarEditItem classına inspektor da design time da eleman eklenebiliyor bilindiği üzere... Kodlayarak yapmak istersek. Örnek : (<cxMyBarEditItem>.Properties as TcxComboBoxProperties).Items.Add(<NewItem>); (cmbSkinList.Properties as TcxComboBoxProperties).Items.Add('eleman'); Kaynak : http://www.dev...