تعریف یک نوع خاص procedure

[حمیدرضاصادقیان]

سلام دوستان.میخواستم ببینم آیا امکانش هست وقتی که یک procedure تعریف میکنیم، بتوانیم در متغیرهایی که برای آن تعریف میکنیم یک متغیر هم به صورت optional باشه.که اگر لازم شدهنگام صدا زدن procedure اون متغیر پر بشه در غیر اینصورت از default مقدار خودش استفاده کنه.

[MNosouhi]

بله ، مثال :

procedure TForm1.Sample(a:string;count:integer=2);
var i:integer;
begin
for i:=1 to count do
ShowMessage(a);
end;
که میتونه به اشکال زیر فراخانی بشه :


Sample('Hi',5);
یا


Sample('Hi');