Delphi-Help

unit Main;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

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;

type

  TDumbRec = record

    i: integer;

    c: char;

  end;

procedure ManipulateRec(var DR: TDumbRec);

asm

  mov [eax].TDumbRec.i, 24

  mov [eax].TDumbRec.c, 's'

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  R: TDumbRec;

begin

  ManipulateRec(R);

  ShowMessage(IntToStr(R.i));

  Caption := Caption + R.c;

end;

end.