Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Dateutils, StdCtrls, CheckLst, ExtCtrls;
Type
TForm1 = class(TForm)
function asmtest1(tal:integer):integer;
procedure FormCreate(Sender: TObject);
End;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
Function Tform1.asmtest1(tal:integer):integer;assembler;
Asm
mov eax,tal
add eax,5
mov tal,eax
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
showmessage(IntToStr(form1.asmtest1(5)));
End;
End.