+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما فائدة استعمال initialization في الوحدات الفرعية (/showthread.php?tid=2380)
ما فائدة استعمال initialization في الوحدات الفرعية - abdelmalek - 05-09-2010
السلام عليكم ورحمة الله وبركاته
ما فائدة استعمال 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 في الوحدات الفرعية
بالتوفيق للجميع
بارك الله فيكم وجزاكم خيرا
سلامي وحبي لكم اخواني
ما فائدة استعمال initialization في الوحدات الفرعية - kachwahed - 05-09-2010
إقتباس :ما فائدة استعمال initialization و finalization في وحدة فرعي ؟أشغال أولية (كتهيئة قيم المتغيرات)/أشغال عند النهاية (كتدمير الأغراض)
إقتباس :1- عندا تشغيل البرنامجأجل، بمجرد تشغيل البرنامج (التحميل إلى الذاكرة)
ما فائدة استعمال initialization في الوحدات الفرعية - abdelmalek - 06-09-2010
بارك الله فيك اخي kachwahed على الاجابة
دائما كما عودتنا
سلامي وحبي لك اخي
في امان الله
دائما كما عودتنا
سلامي وحبي لك اخي
في امان الله