INPUT NILAI ARRAY

INPUT NILAI ARRAY

INPUT NILAI ARRAY

 unit latihan2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    cmd_masuk: TButton;

    cmd_batal: TButton;

    list_data: TListBox;

    cmd_keluar: TButton;

    Label2: TLabel;

    Label3: TLabel;

    txt_jml: TEdit;

    procedure cmd_masukClick(Sender: TObject);

    procedure cmd_batalClick(Sender: TObject);

    procedure cmd_keluarClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cmd_masukClick(Sender: TObject);

var

  a:Integer;

  nama1,nama2 : array[1..5] of String;

  b:String;

begin

  b:= InputBox('Masukkan Data Nama Peserta','Masukkan Jumlah Data Peserta : ','0');

    for a := 1 to strtoint(b) do

      begin

        nama1[a]:= InputBox('Data Ke : '+inttostr(a),'Nama Awal','');

        nama2[a]:= InputBox('Data Ke : '+inttostr(a),'Nama Belakang','');

        list_data.Items.Add(nama1[a]+ '' + nama2[a]);

        txt_jml.Text:=inttostr(list_data.Items.Count);

      end;

end;

procedure TForm1.cmd_batalClick(Sender: TObject);

begin

  list_data.Clear;

  txt_jml.Text;

end;

procedure TForm1.cmd_keluarClick(Sender: TObject);

begin

  Close;

end;

end.