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

[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]

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