Menggunakan tipe data record delphi 7

Record adalah fasilitas yang dibuat oleh Pascal untuk menyediakan suatu tipe data yang terstruktur, tipe data ini hanya bersifat sementara atau temporary

cara penulisannya sebegai berikut :

Type
    Databarang = record
          namabarang : String;
          jumlah : integer;
          harga : double;
          total : double;
    end;

Var
   isibarang : array[1..5] of Databarang;

Databarang adalah nama record, bisa diganti apa saja misalnya datapelanggan, datapemasok dan lain lain dan jangan lupa untuk selalu di akhiri oleh perintah end. Dan cara memanggil nama type

Var
   isibarang : array[1..5] of Databarang;

Perhatikan demo dibawah :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EdtnamaBarang: TEdit;
    EdtHarga: TEdit;
    Edtjumlah: TEdit;
    EdtTotal: TEdit;
    Button1: TButton;
    Button2: TButton;
    ListView1: TListView;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  baris : Integer;

implementation

{$R *.dfm}

Type
    Databarang = record
          namabarang : String;
          jumlah : integer;
          harga : double;
          total : double;
    end;

Var
   isibarang : array[1..5] of Databarang;

procedure TForm1.Button1Click(Sender: TObject);
begin
     isibarang[baris].namabarang := EdtnamaBarang.Text;
     isibarang[baris].jumlah := Strtoint(Edtjumlah.Text);
     isibarang[baris].harga := Strtoint(EdtHarga.Text);
     isibarang[baris].total := Strtoint(EdtTotal.Text);
     inc(baris);

     EdtnamaBarang.Text := '';
     Edtjumlah.Text := '';
     EdtHarga.Text := '';
     EdtTotal.Text := '';
     EdtnamaBarang.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i : byte;
    ItemBaru : TListItem;
begin
     i := 0;
     ListView1.ViewStyle := vsReport;
     for i := 1 to 3 do
     Begin
          ItemBaru := ListView1.Items.Add;
          ItemBaru.Caption := (isibarang[i].namabarang);
          ItemBaru.SubItems.Add(inttostr(isibarang[i].jumlah));
          ItemBaru.SubItems.Add(floattostr(isibarang[i].harga));
          ItemBaru.SubItems.Add(floattostr(isibarang[i].total));
     End;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     baris := 1;
end;

end.