استفاده از unit1 در کل پروژه

[maisam57]

چطوری میتونم یه unit تعریف کنم و از function و procedure اون توی کل پروژه استفاده کنم
بطور مثال میخوام از کد زیر توی همه فرم ها استفاده کنم


for i:=0 to componentcount-1 do
if components[i] is TEdit then
TEdit(findcomponent(components[i].name)).clear;

و یا یه dll رو توی همون یونیت تعریف کنم و توی همه پروژه استفاده کنم


Function PrintNormal : ShortString;
External 'persian.dll';

[m-khorsandi]

کدهات رو توی یه Function یا Procedure تو یک یونیت بنویس، یونیت مورد نظر رو هر جا که می‌خوای از روتین‌های اون استفاده کنی، Use کن.

[Ehsani2006]

به عرض پوزش :
اول Unit ای که می خوای Procedure رو تو اون اجرا کنی باز کن . بعد از منوی File گزینه
Use unit را انتخاب و سپس از پنجره باز شده یونیتی که پروسیجر توی اون هست را انتخاب می کنی .

OK . موفق باشی .

[maisam57]

function یا procedure رو کجا تعریف کنم

[Hamid_PaK]

روال را بعد از implementation تعریف کنید و تنها ساختار آن را قبل از آن اضافه کنید ...
این روال بصورت عمومی در تمامی یونیت ها قابل دسترسی خواهد بود.


function NewPEHider(szFileName: String): PPEHider;

implementation

function NewPEHider;
begin
//;
end;



یا حق ...

[mahsa_kb]

سلام
من یه سئوال تقریبا مشابه دارم ، آیا میشه از یه متغییر (ineger,...) که تو یه یونیت تعریف شده ، در یونیت های دیگه هم استفاده کرد ؟

[Hamid_PaK]

اگه عمومی باشه مسلما ...
یا باید در قسمت عمومی کلاس فرم تعریف شود و یا در قسمت عمومی یونیت ...


type
TForm1 = class(TForm)
Button1: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
PublicClassInt: Integer;
end;

var
Form1: TForm1;
PublicUnitInt: Integer;


یا حق ...

[Keramatifar]

البته حتما باید یونیت رو در یونیتهای دیگر Use کنید
برای اینکار در زیر قسمت Implementation کد زیر را اضافه کنید و در قسمت Unitname1, unitname2 و ... نام یونیت ها را بیاورید



Uses Unitname1, Unitname2