المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : ما فائدة استعمال initialization في الوحدات الفرعية


abdelmalek
05-09-2010, 09:07 PM
السلام عليكم ورحمة الله وبركاته

ما فائدة استعمال initialization و finalization في وحدة فرعي ؟

مثال : عندي وحدة اساسية Unit1 كالتالي :


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,unit2;

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=inttostr(I);
end;

end.

وقمت بتعرف الوحدة الفرعية Unit2 فيها

كود الوحدة الفرعية Unit2 كما يلي :

unit Unit2;

interface

var
I:Integer;

implementation


initialization
I:=10;


finalization
I:=20;

end.


السؤال المطروح : هل يتم حجز مكان ل المتغير I في الداكرة واعطائه القيمة 10 عندا :

1- عندا تشغيل البرنامج
2-عندا الضغط على الزر (Button1)

السؤال الثاني : كيف متى تصبح قيمة I هي 20



او لا فائدة من استعمال initialization و finalization في الوحدات الفرعية


بالتوفيق للجميع

بارك الله فيكم وجزاكم خيرا

سلامي وحبي لكم اخواني

kachwahed
05-09-2010, 11:01 PM
ما فائدة استعمال initialization و finalization في وحدة فرعي ؟
أشغال أولية (كتهيئة قيم المتغيرات)/أشغال عند النهاية (كتدمير الأغراض)

1- عندا تشغيل البرنامج
أجل، بمجرد تشغيل البرنامج (التحميل إلى الذاكرة)

abdelmalek
06-09-2010, 09:30 AM
بارك الله فيك اخي kachwahed على الاجابة

دائما كما عودتنا

سلامي وحبي لك اخي

في امان الله