Multiplication Assembleur DelphiRésolu

Question

bonjour,

j'essaye de faire une multiplication sur assembleur mais le programme se bloque lors de l'affichage du résultat Violation d&#8217;accès à l'adresse.
pouvez vous me donner plus d'infos sur ce sujet.

voila la procedure que j'utilise.
 
procedure TForm1.Button3Click(Sender: TObject);
var
a,b,r:integer;
begin
A:=strtoint(Edit1.text);
B:=strtoint(Edit2.text);

  asm
   Mov EAX,A
   Mov EBX,B
   Mul EBX
   mov r,EBX
     end;
   Edit3.Text:=IntToStr(r);
end;


cordialement.

eliassovich · Accepted Answer

bonjour,

je vais à moi même, car c&#8217;était une faute de ma part alors voila la solution


procedure TForm1.Button3Click(Sender: TObject);
var
a,b:integer;
begin
A:=strtoint(Edit1.text);
B:=strtoint(Edit2.text);
  asm
   Mov EAX,B // mettre la valeur de B dans EAX
   iMUL EAX,2 // faire la valeur de EAX *2
   Add A,EAX   // addition du résultat de la MUL dans EAX avec la valeur de A
  end;
   Edit3.Text:=IntToStr(A);
end;


merci

f0xi · Answer

pourquoi vouloir la faire en assembleur ?
ici ce ne sera pas plus rapide que de faire :
Edit3.Text := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));

________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

Multiplication Assembleur Delphi

2 réponses

Votre réponse

Discussions similaires