اضافه کردن مقادیر پیشفرض برای توابعی که فقط 1 مقدار پیشفرض دارند

[Mask]

در نوشتن تابع فقط میتونم اعلام کنم ، اگر فلان پارامتر براش نوشته نشد ، فلان مقدار رو جایگزین کن ، که مشکل این تیپ کد نویسی این هست که اگر این پارامتر وسط کد کال کننده باشه نمیشه چیزی براش در نظر نگرفت ، که تابع مقدار پیش فرضش رو قرار بده ، پس مجبوریم مقدار ('' خالی) بهش پاس بدیم.
که در این صورت مقدار پیشفرض براش در نظر گرفته نمیشه و مقدار خالی ثبت میشه . چطور میتونیم در اعلان تابع طوری تعریف کنم که وقتی مقدار ('' خالی) بود ، همان مقدار پیشفرض براش در نظر گرفته بشه ؟
مثال زیر رو ببینید :

function test(Name: string = 'All'; Famil: string = 'All';
Password: string = 'NoSet'): Boolean;
var
ini: TIniFile;
begin
try
ini := TIniFile.Create('c:\ini.ini');
try
ini.WriteString('option', 'Name', Name);
ini.WriteString('option', 'Famil', Famil);
ini.WriteString('option', 'Password', Password);
Result := True;
finally
ini.Free;
end;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not test('ali','','12345') then
ShowMessage('Error Write file');
end;
توی این مثال من پارامتر فامیل رو مثلا نمیدونم: اولا نمیتونم متنی ارسال نکنم و نال باشه ، چون قاط میزنه برنامه ، پس مجبورم مقدار خالی بفرستم . در صورتی که خالی هم نمیخام ، میخام مقدار پیشفرض به جای خالی باشه . در این چنین مورد ها سریعترین و کوتاهترین کدی که میشه نوشت چیه؟

[MohsenB]

سلام

دوتا راه الان به ذهنم میرسه :

1. از overload کردن توابع استفاده نمایید . البته باید یجورایی تابع رو سازماندهی کنید اگر نوع مقادیر یکی باشند :

function test(Name: string = 'All'; Famil: string = 'All';
Password: string = 'NoSet'): string; overload;
function test(Name: string = 'All'; Password: string = 'NoSet'): string; overload;
function test(Name: string = 'All'): string; overload;

...

function test(Name: string = 'All'; Famil: string = 'All';
Password: string = 'NoSet'): string;
begin
Result:= Name + ' . ' + Famil + ' . ' + Password;
end;

function test(Name: string = 'All'; Password: string = 'NoSet'): string;
begin
Result:= Name + ' . ' + 'All' + ' . ' + Password;
end;

function test(Name: string = 'All'): string;
begin
Result:= Name + ' . ' + 'All' + ' . ' + 'NoSet';
end;

و یا یه نوع جدید بسازید :

type
TMyName =string;
TMyFamil =string;
TMyPass =string;

function test(Name: TMyName = 'All'; Famil: TMyFamil = 'All';
Password: TMyPass = 'NoSet'): string; overload;
function test(Name: TMyName = 'All'; Famil: TMyFamil = 'All'): string; overload;
function test(Name: TMyName = 'All'): string; overload;

...

function test(Name: TMyName = 'All'; Famil: TMyFamil = 'All';
Password: TMyPass = 'NoSet'): string;
begin
Result:= Name + ' . ' + Famil + ' . ' + Password;
end;

function test(Name: TMyName = 'All'; Famil: TMyFamil = 'All'): string;
begin
Result:= Name + ' . ' + Famil + ' . ' + 'NoSet';
end;

function test(Name: TMyName = 'All'): string;
begin
Result:= Name + ' . ' + 'All' + ' . ' + 'NoSet';
end;

2. ویا میتونید پیشفرض ها رو بصورت عمومی تعریف کنید و هرجای خالی رو با اون پر کنید :

const
DEF_NAME = 'All';
DEF_FAMIL = 'All';
DEF_PASS = 'NoSet';


function test(Name: string = DEF_NAME; Famil: string = DEF_FAMIL;
Password: string = DEF_PASS): string;

...

function test(Name: string = DEF_NAME; Famil: string = DEF_FAMIL;
Password: string = DEF_PASS): string;
begin
Result:= Name + ' . ' + Famil + ' . ' + Password;
end;
// مثال :
procedure TForm1.btn1Click(Sender: TObject);
begin
btn1.Caption:= test('Mohsen', DEF_FAMIL, '122');
end;

موفق باشید

[Ananas]

سلام.
اشاره گر هم خوبه به نظرم:

function test(
Name: PWideChar;// = 'All';
Famil: PWideChar;// = 'All';
Password: PWideChar// = 'NoSet'
): Boolean;
var
ini: TIniFile;
begin
try
ini := TIniFile.Create('d:\ini.ini');
try
if (Name = nil) then Name := 'All';
if (Famil = nil) then Famil := 'All';
if (Password = nil) then Password := 'NoSet';
ini.WriteString('option', 'Name', Name);
ini.WriteString('option', 'Famil', Famil);
ini.WriteString('option', 'Password', Password);
Result := True;
finally
ini.Free;
end;
except
Result := False;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not test('ali',nil,'12345') then
ShowMessage('Error Write file');
end;

[Ananas]

اصلا اینم میشه:

function test(
Name: string;// = 'All';
Famil: string;// = 'All';
Password: string// = 'NoSet'
): Boolean;
var
ini: TIniFile;
begin
try
ini := TIniFile.Create('d:\ini.ini');
try
if (Name = '') then Name := 'All';
if (Famil = '') then Famil := 'All';
if (Password = '') then Password := 'NoSet';
ini.WriteString('option', 'Name', Name);
ini.WriteString('option', 'Famil', Famil);
ini.WriteString('option', 'Password', Password);
Result := True;
finally
ini.Free;
end;
except
Result := False;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not test('ali','','12345') then
ShowMessage('Error Write file');
end;

[Mask]

ممنون از دوستان عزیز بابت کد : اما :
دوست عزیز ، Ananas : این یه مثال بود که 3 پارامتر داشت و در برنامه ای که میخام بنویسم ، حدود 15 تا پارامتر هست ،که البته خودم هم همین کد رو نوشته بودم ، اما اگه بخواهیم به این روش بریم جلو 15 تا IF باید بنویسم که زیاد جالب نیست.(بیشتر مد نظرم تغییر در نوشتن اعلان فانکشن به صورت دریافت دو مقدار به صورت پیشفرض بود)
و دوست خوبم MohsenB :بیشتر مد نظرم تغییر در نوشتن اعلان فانکشن به صورت دریافت دو مقدار به صورت پیشفرض بود. نه نوشتن Type خاص.
بیشتر کد نویسی جمع و جور مد نظرم بود.
به هر حال ممنون از وقتی که گزاشتید.

[یوسف زالی]

مگه هنوز مشکلت حل نشده؟
اگر هنوز نیاز داری، بریم تو فاز (بندری :لبخند:) نوشتن تابع با پارامتر های باز و مقادیر پیش فرض..