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

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

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

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

PHP كود :

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 كما يلي :

PHP كود :

unit Unit2;

interface

var
I:Integer;

implementation


initialization
 I:=10;


finalization
I:=20;

end. 


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

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

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

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

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

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

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

[kachwahed]

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

أشغال أولية (كتهيئة قيم المتغيرات)/أشغال عند النهاية (كتدمير الأغراض)

1- عندا تشغيل البرنامج

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

[abdelmalek]

بارك الله فيك اخي kachwahed على الاجابة

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

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

في امان الله