Optional Argument in Function

[FirstLine]

با سلام
چجوری میتونم در یک تابع یک ورودی بصورت اختیاری دریافت کنم؟
با تشکر

[Delphi-Clinic]

تو تعریف Function به ورودی مقدار اولیه بده مثل:




function GetUniqueFileName(Prefix : string = 'XXX') : string;
var Retvar : string;
TempPath : string;
begin
SetLength(RetVar,257);
SetLength(TempPath,257);
GetTempPath(257,PChar(TempPath));
GetTempFileName(PChar(TempPath),PChar(Prefix),0,PC har(RetVar));
Result := Retvar;
end;