Взаимодействие с другими языками

Code:

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.