Delphinin yeni özelliklerinden olan class helper ve tvalue tipini tanıtacığım size her ikisinin beraber püskevit oluyor bence Öncelilke yeni bir proje oluşturuyoruz ve fazladan bir unit ekliyoruz unitimiz aşağıdaki gibi
Uhelper.pas
|
unituhelper;
interface
usesStdCtrls,Rtti;
type
TEditHelper=classhelperforTEdit
procedureSetValue(constValue:TValue);
functionGetValue:TValue;
public
propertyValue:TValuereadGetValuewriteSetValue;
end;
implementation
{ TEditHelper }
functionTEditHelper.GetValue:TValue;
begin
Result:=self.Text;
end;
procedureTEditHelper.SetValue(constValue:TValue);
begin
Text:=Value.ToString;
end;
end.
|
Unit1pas
|
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,rtti,StdCtrls,uhelper;
type
TForm1=class(TForm)
Edit1:TEdit;
Button1:TButton;
Button2:TButton;
Button3:TButton;
procedureButton1Click(Sender:TObject);
procedureButton2Click(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1:TForm1;
implementation
{$R *.dfm}
procedureTForm1.Button1Click(Sender:TObject);
begin
Edit1.value:='Alfa Saysal Deger';
end;
procedureTForm1.Button2Click(Sender:TObject);
begin
Edit1.Value:=100.513;
end;
end.
|
Dikkat ederseniz tedit componentinde olmayan bir özellğimiz var artık bu özellği kullanmak için tek yapmanız gereken uses da uhelper i eklemek olay bu kadar basit tvalue siz ne şekilde olmasını isterseniz o şekle girecektir string integer float ...
Kaynak Kodları
Burdan İndirebilirsiniz
kolay gele
unutmayın delphi is magic