کار با interface

[مهدی فهمیده غلامی]

یک مثال ساده برای کار با interface که یک عمل خاص را تعریف کنه و در کلاس های
مشتق شده از اون interface پیاده سازی صورت بگیره می خوام

[vcldeveloper]

interface
uses
Dialogs;
type
IMyInterface = interface
['{081FFADD-51D0-45A7-8303-3D698165795B}']
procedure ShowSomething;
end;

TMyClass = class(TInterfacedObject, IMyInterface)
procedure ShowSomething;
procedure DoSomethingElse;
end;

implementation
{ TMyClass }
procedure TMyClass.DoSomethingElse;
begin
//DO something else
end;

procedure TMyClass.ShowSomething;
begin
ShowMessage('Interface method is implemented by TMyClass');
end;




procedure TForm1.Button1Click(Sender: TObject);
var
MyInterface : IMyInterface;
begin
MyInterface := TMyClass.Create;
MyInterface.ShowSomething;
end;

[Delphi Skyline]

['{081FFADD-51D0-45A7-8303-3D698165795B}']
اینجاش مال چیه ؟

[مهدی فهمیده غلامی]

کشاورز عزیز ممنون
اما چیزی که من میخواستم شما بهش اشاره میکردید اینه که یک تابع با پارامتری از نوع نامعلوم تعریف میکردید و در کلاس های بعدی اونو پیاده سازی میکردید
اگه میشه یه مثال ایجوری بزنید

[vcldeveloper]

اینجاش مال چیه ؟
GUID یک شماره هست که اون Interface رو منحصر بفرد میکنه. این شماره رو می تونید در دلفی با استفاده از Shift+Ctrl+G تولید کنید. در هنگام Copy/Paste کد یک Interface هیچوقت GUID اون رو کپی نکنید!!

[Delphi Skyline]

متشکرم .

[Delphi Skyline]

آقای کشاورز یک INTERFACE را باید کجا پیاده سازی کرد ؟
منظورم تو فرم خودمون است
یا اینکه به عنوان یک uses عمل می کنه
و یا .....


:flower:

[vcldeveloper]

آقای کشاورز یک INTERFACE را باید کجا پیاده سازی کرد ؟
یک Interface توسط class ایی که از اون ارث گرفته، پیاده سازی میشه.

برای آشنایی بیشتر با Interface ها می تونید درباره برنامه نویسی شپی گرا (OOP) مطالعه کنید

[Delphi Skyline]

برای آشنایی بیشتر با Interface ها می تونید درباره برنامه نویسی شپی گرا (OOP) مطالعه کنید
متشکرم . بهترین منبع ؟

:flower:

[vcldeveloper]

بهترین منبع ؟
در سایت delphi.about.com مجموعه مقالاتی درباره Interface (در حد ابتدایی و خودآموز) دیده بودم. در کتاب Mastering Delphi 7 هم درباره Interface ها (و برخی مفاهیم شی گرایی) توضیح داده شده.

موفق باشید.

[Delphi Skyline]

متشکرم از راهنمایی هایتان .
موفق باشید .
:flower: