Delphi Çarpma İşlemi (Multiplication Delphi Process)

2 Edit ekleyin,1 Button ekleyin, Butona tıklandığında edit1 ve edit2ye girilen sayıları ekrana mesaj olarak çarpımını gösteren kod=

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

 a:=strtoint(edit1.Text);

 b:=strtoint(edit2.Text);

 showmessage(inttostr(a*b));

end;

end.