초학 Delphi 삽입 어셈블리[6] - & 조작부호

812 단어 Delphi


//       Delphi         &    

procedure Proc(str1,str2: string);

var

  s1,s2: string;

begin

  asm

    mov ecx, &str1  {}

    mov edx, &str2



    mov &s1, ecx   {}

    mov &s2, edx

  end;



  ShowMessage(s1 + s2);

end;

{         ,     &       ,             }



//  

procedure TForm1.Button1Click(Sender: TObject);

begin

  Proc('  ', '  '); {  :     }

end;


 
   
// ? : procedure TForm1.Button2Click(Sender: TObject); var ecx: Integer; { } begin ecx := 99; asm mov ecx, &ecx { ecx ; &ecx } add ecx, 1 mov &ecx, ecx end; ShowMessage(IntToStr(ecx)); {100} end;
{ : , & }

좋은 웹페이지 즐겨찾기