Contoh perakitan Delphi+ 1 (perbandingan jumlah)

Gampang, Anda bisa mencobanya sekarang :).

-----Tes yang saya lakukan ketika saya sedang belajar perakitan. Program pertama hanya untuk memberikan kesan saja. Nanti akan ada postingan yang menjelaskannya secara detail.

satuan Unit1;

antarmuka

kegunaan

Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,

Dialog, StdCtrls, ExtCtrls;

jenis

TForm1 = kelas(TForm)

Bentuk1: Bentuk T;

Label1: Label;

Label2: TLabel;

Label3: Label;

Tombol1: Tombol T;

Tombol2: Tombol T;

Label4: Label;

Label5: Label;

Label6: Label;

Tombol3: Tombol T;

Tombol Prosedur1Klik(Pengirim: TObject);

prosedur Button2Click(Pengirim: TObject);

//prosedur Button3Click(Pengirim: TObject);

//prosedur BtCalcuClick(pengirim: TObject);

pribadi

{Deklarasi pribadi}

publik

{Pernyataan publik}

akhir;

var

Formulir1: TForm1;

fungsi Sum1(X,Y:integer):integer;

fungsi Sum2(X,Y:integer):integer;stdcall;

fungsi Sum3(var X,Y:integer):integer;stdcall;

pelaksanaan

{$R *.dfm}

prosedur TForm1.Button1Click(Pengirim: TObject);

var

saya,j: bilangan bulat;

mulai

label1.Keterangan:=inttostr(jumlah1(2,3));

label2.Keterangan:=inttostr(jumlah2(2,3));

saya:=2;

j:=3;

label3.Keterangan:=inttostr(jumlah1(i,j));

akhir;

//penjumlahan program delphi

fungsi Sum1(X,Y:integer):integer;

mulai

hasil:=X+Y;

akhir;

//Jumlah Majelis 1---

fungsi Sum2(X,Y:integer):integer;stdcall;

mulai

asm

bergerak eax,X

tambahkan eax,Y

pindahkan @hasil, eax

akhir;

akhir;

//Penjumlahan Majelis 2---

fungsi Sum3(var X,Y:integer):integer;stdcall;

mulai

asm

bergerak eax,X

pindahkan eax,[eax]

pindahkan edx,Y

tambahkan eax,[edx]

pindahkan @hasil, eax

akhir;

akhir;

procedure TForm1.Button2Click(Pengirim: TObject);

mulai

menutup;

akhir;

{prosedur TForm1.Button3Click(Pengirim: TObject);

var

Keluar dari Bendera:Boolean;

KeluarBufPtr:Kata;

mulai

asm

pindahkan, QuitFlag

bergerak bx,OutBufPtr

akhir;

akhir;}

akhir.