آموزش برنامه نوسي دلفی- <آشنايي اوليه با برنامه نويسي > قسمت سوم

[Borna66]

قسمت سوم:

قبل از شروع مطلب اين نكته را متذكر مي شوم كه اين سري مقالات براي افرادي كه آشنايي اوليه با برنامه نويسي و ترجيحاً برنامه نويسي تحت ويندوز دارند مفيد تر مي بلشد چون آموزش جزئيات بيشتر در حوصله اين سري مقالات نمي گنجد.

براي نوشتن كدهاي آزمايشي اين بخش كارهاي زير را انجام بدهيد:

دلفي را اجرا كنيد.

اگر پروژه جديدي به طور خودكار باز نشد، File|New Project را از منوي دلفي انتخاب كنيد.

Project|Options|Linker را انتخاب كنيد، كادر مكالمه Generate Consol Application را انتخاب كنيد، و سپس OK را به وسيله ماوس انتخاب كنيد. اين كار براي دلفي مشخص مي كند برنامه اي كه ايجاد مي كنيد، يك برنامه پنجره دار نيست، بلكه برنامه اي از نوع «پنجرهDos » است.

View|Project Source را انتخاب كنيد، متن اصلي پروژه در پنجره ويراستار قابل رويت خواهد بود. اگر چه اين متن عموماً ويرايش نمي شود، اما در اين حالت بايد اين متن را با متن خودتان جايگزين كنيد. اين يك روش آسان براي ايجاد يك برنامه است

زمانيكه برنامه را اجرا مي كنيد، حاصل آن در پنجره خودش ظاهر مي شود. براي بستن پنجره خروجي، Alt+F4 را فشار دهيد، يا x را از گوشه بالايي پنجره خروجي انتخاب كنيد.

نكته اي كه در اينجا وجود دارد. زماني كه متن قديمي را با متن برنامه خود جايگزين مي كنيد، پروژه را ابتدا با نام جديدي ذخيره كنيد، و يا خط Program پروژه را تغيير ندهيد.

كنترل جريان برنامه:

دلفي دو ساختار براي كنترل جريان برنامه دارد كه به تفصيل به آنها مي پردازيم.

دستور If...Then...Else

اين دستور از اساسي ترين دستورات شرطي مي با شد كه اين امكان را به برنامه نويس مي دهد كه پرسشي را مطرح كرده و بر اساس پاسخ آن كار يا عمل درخواستي را انجام دهد. مثالي در اين رابطه:

 
program  IfDemo;

uses Forms;

var  UserInput :  Integer;

begin

Write('How old are you ?  ');

ReadLn(UserInput);

If (UseerInput < 1) or (UserInput >  130) Then

WriteLn('You are not telling the  truth.')

Else

WriteLn('Being ', UserInput, 'yers old is  great!');

WriteLn('Press Enter to Exit program');

ReadLn {To keep  the window from closing until you press Enter}

end {InDemo}

در برنامه فوق عبارت بين If...Then در صورتي كه عدد ورودي توسط كاربر كوچكتر از 1 يا بزركتر از 130 باشد برابرTrue شده در نتيجه كد نوشته شده بين Then...Else اجرا مي شود. در غير اين صورت عبارت بعد از Else اجرا مي شود.

درصورتي كه بخواهيم بيش از يك دستور را بين Then...Else و يا بعد ازElse قرار دهيم بايد از يك بلاك استفاده كنيم

بلاك:

مجموعه اي از دستورات كه بين Begin...End واقع مي شوند.

دستور Case...of

همانند دستور If...Then مي باشد ولي با اين تفاوت كه بجاي دو حالت True و False چند حالت را بررسي مي كند. براي تشريح اي ساختار به مثال زير توجه كنيد.
کد:

 
 
program CaseDemo;

Uses Forms;

var UserIn :  Char;

begin

Write('Type in character followed dy the Enter key:  ');

ReadLn(UserIn);

Case UserIn of

'a'    :WriteLn('That is  a Small a');

'z','Z':WriteLn('That is a small or capital  z')

else

WriteLn('That is a character other than an a, z, or  Z.')

end;

WriteLn('Press Enter to exit program');

ReadLn  {To keep the window from closing until you press Enter}

end  {CaseDemo}

در مثال فوق در صورتي كه مقدار بين Case...of برابر با هر يك از ثابتهاي قبل از علامت (:) باشد، دستور يا بلاك دستورات بعد از علامت (:) اجرا مي شود. همچنين، توجه به اين امر كه يك دستور end در پايان به عنوان پايان بخش دستور Case قرار مي گيرد نيز بسيار مهم است. در ضمن قسمت else نيز در اين ساختار اختياري بوده و مي تواند حذف شود.