|
|
|
Pengertian delphi.
Delphi adalah suatu bahasa pemograman yang digunakan untuk merancang aplikasi program. |
|
Membuat TreeView dengan Jumlah Root dan Node dengan Looping
|
Hasil Tampilan ProgramSebelum Di Input
|
|
 |
|
| Hasil Tampilan Sesudah DiInputin / Sesudah di proses |
|
|
|
|
|
|
Desain Propertis |
Objek
|
Name
|
Caption
|
| Label1 |
Label1 |
Jumlah Root |
| Label2 |
Label2 |
Jumlah Node |
| Edit1 |
Edt_Root |
<Kosongkan> |
| Edit2 |
Edt_Node |
<Kosongkan> |
| Button1 |
BtnProses |
Proses |
| Button2 |
BtnReset |
Reset |
| Button |
BtnKeluar |
Keluar |
|
|
| Listing Program |
| procedure TForm1.BtnProsesClick(Sender: TObject); |
|
var
root : Integer;
node : Integer;
a,j,b: Integer;
begin
//Memproses Jika Kolom Tidak Ada Yang Kosong;
if((Edt_Root.Text<>'')and(Edt_Node.Text<>''))then
begin
//Mengosongkan Tree View dan menentukan nilai awal variabel
TmpilTreeview.Items.Clear;
b:=0;
//mengambil jumlah root dan node
root :=StrToInt(Edt_Root.Text);
node :=StrToInt(Edt_Node.Text);
//Membuat Root
for a:=1 to root do
begin
TmpilTreeview.Items.Add(nil,'Root Ke- '+IntToStr(a));
//Membuat Node dari Masing-masing Root
for j:=1 to node do
begin
TmpilTreeview.Items.AddChild(TmpilTreeview.Items[b],'Node Ke- '+IntToStr(a)+'.'+IntToStr(j));
TmpilTreeview.Items[b].MakeVisible;
end;
b:=b+node+1;
end;
end
//Jika Ada Salah Satu Kolom yang Kosong
else
begin
MessageDlg('Lengkapi Kolom !',mtError,[mbOK],1);
end;
end; |
|
|
| procedure TForm1.BtnResetClick(Sender: TObject); |
|
begin
//membersihkan Field dan Tree View;
TmpilTreeview.Items.Clear;
Edt_Root.Text:='';
Edt_Node.Text:='';
lblHasil.Caption:='';
end; |
|
|
| procedure TForm1.BtnKeluarClick(Sender: TObject); |
|
begin
Application.Terminate;
end; |
|
|
|
Sekian Dulu,,,
kapan-kapan Lanjut lagi..
oc ???? |
|
Tidak ada komentar:
Posting Komentar