Örnek :
Kod: Tümünü seç
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs;
type
TDoubleHelper = record helper for Double
function KareKokAl: Double;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
sayi:Double;
begin
sayi:=100;
ShowMessage(FloatToStr(sayi.KareKokAl));
end;
{ TDoubleHelper }
function TDoubleHelper.KareKokAl: Double;
begin
Result:=Sqrt(Self);
end;
end.