نحوه تعريف يك تابع

[hentjanson]

سلام دوستان من تا حالا با تابع كار نكردم اخه يك كد دارم كه بايد جاهايه مختلف بنويسمش مي خوام تو يك تابع باشه كه فقط تابع رو صدا بزنم ميشه بگيد چطور ميشه يك تابع تعريف كرد ؟

[MSK]

function esmEtabe(parametrha):typeBazgashti;
begin
cod barname
end;

mesal:

function albala( a: byte; b: real ): boolean;
begin
result := true;
end;

[hentjanson]

اينطوري درسته كد نويسي مثلا اينه البته با گفته هاش شما اين به زهنم رسيده


function esmEtabe(parametrha):typeBazgashti;
begin
ADOTable1.FieldByName('code').asstring:=maskedit1. Text;
ADOTable1.FieldByName('shabek').asstring:=maskedit 22.Text;
ADOTable1.FieldByName('namketab').asstring:=masked it2.Text;

end;



راستي يك مسئله اي تابع كه ايجاد ميشه چطور بايد صداش زد اينو هم توضيح بديد

[اوبالیت به بو]

راستي يك مسئله اي تابع كه ايجاد ميشه چطور بايد صداش زد اينو هم توضيح بديد
اسم تابع رو بنويسيد
مثلاً


Function TestFunction (x:Byte) : Boolean;
Begin
x:= x * 5;
Write('Last Process:');
TestFunction:= True;
END;
Begin
x:= 3;
bln:= testFunction (x);
Readln;
END;