Perulangan Delphi

Nah sekarang kita akan membahas tentang Perulangan pada Delhpi.!!

Sebelumnya, Silahkan Design Form dibawah ini terlebih dahulu...

 

Nah sekarang listingnya bisa dilihat dibawah ini:

unit Ulang2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    item: TEdit;
    bok: TButton;
    Label2: TLabel;
    Label3: TLabel;
    tanggal: TEdit;
    faktur: TEdit;
    lbarang: TListBox;
    GroupBox2: TGroupBox;
    lharga: TListBox;
    total: TEdit;
    Label4: TLabel;
    bclose: TBitBtn;
    blagi: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    procedure bokClick(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'mm/dd/yyyy';
tanggal.Text := 'Hari ini ' + DateToStr(Date);
end;

procedure TForm2.blagiClick(Sender: TObject);
begin
item.Text :='';
faktur.Text :='';
lbarang.Clear;
lharga.Clear;
total.Text :='';
end;

procedure TForm2.bokClick(Sender: TObject);
var
inputnama : string;
inputharga : string;
i : integer;
j : integer;
harga : real;
begin
  harga := 0;
  j := 0;
  j:= strtoint(item.Text);
  if j <= 0 then
      begin
      showmessage('Data Tidak boleh lebih kecil dari Nol');
      exit;
  end
  else
  begin
  lbarang.Clear;
  lharga.Clear;
    for i := 1 to j do
        begin
        inputnama := inputbox('Input','Ketikan Nama Barang','');
        inputharga := inputbox('Input','Ketikan Harga Barang','');
        lbarang.Items.Add(inputnama) ;
        lharga.Items.Add(inputharga);
        harga := harga + strtofloat(inputharga);
  end;
end;
total.Text := floattostr(harga);
end;

procedure TForm2.bcloseClick(Sender: TObject);
begin
close;
end;

end.