type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure Foo(var I: integer);
begin
{ some code }
asm
mov eax, I
inc dword ptr [eax]
end;
{ i has now been incremented by one }
{ some more code }
end;
Главная
Каталог файлов
