05-09-2010, 08:07 PM
السلام عليكم ورحمة الله وبركاته
ما فائدة استعمال initialization و finalization في وحدة فرعي ؟
مثال : عندي وحدة اساسية Unit1 كالتالي :
وقمت بتعرف الوحدة الفرعية Unit2 فيها
كود الوحدة الفرعية Unit2 كما يلي :
السؤال المطروح : هل يتم حجز مكان ل المتغير I في الداكرة واعطائه القيمة 10 عندا :
1- عندا تشغيل البرنامج
2-عندا الضغط على الزر (Button1)
السؤال الثاني : كيف متى تصبح قيمة I هي 20
بالتوفيق للجميع
بارك الله فيكم وجزاكم خيرا
سلامي وحبي لكم اخواني
ما فائدة استعمال 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 في الوحدات الفرعية
بالتوفيق للجميع
بارك الله فيكم وجزاكم خيرا
سلامي وحبي لكم اخواني