Latihan 5 Pemrograman Visual

var

  Form1: TForm1;

  a,b,c,d,e:string;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case Combobox1.ItemIndex of

0:begin

edit1.Text:='nama';

edit2.Text:='alamat';

edit3.Text:='umur';

edit4.Text:='status';

edit5.Text:='aaa';

end;

1:begin

a:='aaaa';

b:='bbbb';

c:='cccc';

d:='dddd';

e:='eeee';

end;

2:begin

a:='kkkk';

b:='llll';

c:='mmmm';

d:='nnnn';

e:='oooo';

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

combobox1.ItemIndex:=-1;

radiogroup1.ItemIndex:=-1;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:=a;

edit2.Text:=b;

edit3.Text:=c;

edit4.Text:=d;

edit5.Text:=e;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0:begin

edit6.Text:='4';

end;

1:begin

edit6.Text:='5';

end;

2:begin

edit6.Text:='6';

end;

end;

end;

end.