ضرب دو عدد با استفاده از جمع

[naeem_0310]

سلام دوستان
میخوام یه برنامه بنویسم که دو عدد از ورودی (edit.text) بگیره و با استفاده از جمع، این دو عدد را ضرب کرده و در ادیت.تکست 3 نمایش بده.
من این کد رو از یه کد به زبان سی تبدیل کردم ولی تو دلفی خطا میده!!

var num1:integer;
num2:integer;
num1:=strtoint(edit1.text);
num2:=strtoint(edit2.text);
Function zarb(num1,num2:integer):integer
var mult:integer;
Begin
If num2 = 1 then
return num1;
mult:=(num1+zarb(num1,num2-1));
return mult;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.text:=inttostr(mult);
end;

[ariopax]

سلام

نحوه کدنویسی شما اشتباه است .کدنویسی سی با دلفی فرق داره .سورس کد همین مساله رو با پاسکال بدست بیاورید .میتونید درستش کنید

[idehrayan]

var i:Integer;
begin
edit3.Text:='0';
for I := 1 to StrToInt(edit1.Text) do
edit3.Text:=IntToStr(StrToInt(edit2.Text)+StrToInt (edit3.Text));

[meytib]

Function zarb(num1,num2:integer):integer;
Begin
If num2 = 1 then zarb:=num1
else zarb:=num1+zarb(num1,num2-1);
End;