SYNTAX PROGRAM APLIKASI MENGGUNAKAN ARRAY DAN RECORD

Diposting oleh hamam blogs
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type tabel_barang = record
nama: string;
Kode_Barang : longint;
Nama_Barang : String;
Jumlah_Barang : integer;
end;

var
data : array [1..100] of tabel_barang;
n,i : integer;
{***********************************************}


begin
n:=StrToInt (Edit1.Text);
for i:= 1 to n do
begin
data[i].nama:=InputBox('NAMA','Inputkan Nama Anda','');
data[i].Kode_Barang:=StrToInt(InputBox('Kode Barang','Inputkan Kode Barang ',''));
data[i].Nama_Barang:=InputBox('Nama Barang','Inputkan Nama Barang ','');
data[i].Jumlah_Barang:=StrToInt(InputBox('Jumlah BarangI','Inputkan Jumlah Barang ',''));
memo1.Lines.Append ('Data ke '+inttostr(i)+#9+' '+data[i].nama+#9+inttostr(data[i].kode_barang)+#9+data[i].nama_barang+#9+inttostr (data[i].jumlah_barang) ) ;
begin
Memo1.Lines.Append('-----Terima Kasih Telah Berbelanja di Tempat Kami-------');
Memo1.Lines.Append('---------------Silakan datang kembali------------------');
Memo1.Lines.Append('nama: hamam sabiq al');
Memo1.Lines.Append('kelas:Ti-E (3105111364)');
end;
end;

end;


end.

Category: 0 komentar

0 komentar:

Posting Komentar