دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

serial driver

إرسال موضوع جديد   إرسال مساهمة في موضوع

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

serial driver

مُساهمة  spider-dz في 31/5/2015, 7:30 pm

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function TestDouble: Double;
{ Private declarations }
public
{ Public declarations }
end;

ITest = interface(IInvokable)
['{DE3ACD58-A748-4528-A2A6-13C7A9247DB2}']
function GetDate: TDateTime;
property Date: TDateTime read GetDate;
end;

var
Form1: TForm1;

implementation

uses
Delphi.Mocks;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
mock: TMock<ITest>;
test: ITest;
begin
mock := TMock<ITest>.Create;
mock.Setup.WillReturn(Date).When.GetDate;
Button1.Tag := Trunc(TestDouble);
test := mock;
Button1.Caption := DateToStr(test.GetDate);
end;

function TForm1.TestDouble: Double;
begin
Result := 123;
end;

spider-dz
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى