پارامتر اختیاری؟!

[mbshareat]

من می خواهم یه پروسیجر داشته باشم که آخرین پارامتر را اگه لازم بود به اون ارسال کنم
ظاهرا باید بشه از optional هستفاده کرد ولی ایراد می گیره. لطفا راهنمایی کنین.

[حسین شهریاری]

Overload را جستجو کنید...

[Felony]

در زیر براتون یک نمونه کد نوشتم .

تابع :

Procedure SampleFunc(Title: string;Text: string='');

begin

  if Text='' then

    ShowMessage(Title)

  else

    MessageBox(0, PChar(Text), PChar(Title),+MB_OK);

end;

نمونه به کار برده شده :

SampleFunc('Message');

  SampleFunc('Message','This is sample optional parameter');

[Felony]

Overload را جستجو کنید...

Overload برای تغییر نوع یا تعداد پارامتر ها به کار میره ، مثلا :

procedure Test(SampleParam: string);Overload;

begin

  ShowMessage(SampleParam);

end;



procedure Test(SampleParam: Integer);Overload;

begin

  ShowMessage(IntToStr(SampleParam));

end;

استفاده :

Test('1389');

  Test(1389);

[1485159]

چطوری میشه تابعی مثل تابع Write ساخت؟ منظورم پارامتر هاشه.

[vcldeveloper]

چطوری میشه تابعی مثل تابع Write ساخت؟

Write یک تابع معمولی پاسکال نیست، بلکه یکی از توابع magic کامپایلر هست؛ یعنی در پاسکال شما نمی تونید تابعی عینا مثل Write بنویسید، ولی کامپایلر این تابع را به این شکل خاص برای شما پیاده سازی کرده.

[1485159]

یعنی در پاسکال شما نمی تونید تابعی عینا مثل Write بنویسید، ولی کامپایلر این تابع را به این شکل خاص برای شما پیاده سازی کرده.

اینو میدونم.
در ضمن چرا به اینصورت تعریفش کردن؟ منظورم اینه که چرا به صورت تابع معمولی تعریف نکردن؟

[vcldeveloper]

منظورم اینه که چرا به صورت تابع معمولی تعریف نکردن؟

توضیح دادم؛ برای اینکه همچین حالتی در پاسکال ممکن نبود.

[1485159]

توضیح دادم؛ برای اینکه همچین حالتی در پاسکال ممکن نبود.

آخه من نمیتونم درک کنم! مگه به اسمبلی تبدیل نمیشه؟ پس میشد پیاده سازی کرد.

[vcldeveloper]

آخه من نمیتونم درک کنم! مگه به اسمبلی تبدیل نمیشه؟ پس میشد پیاده سازی کرد.

اینها چه ربطی به هم دارند؟!