Program Mengurutkan Angka Secara Ascending Menggunakan Delphi

Hi semua.. Kali ini penulis ingin ngasih tambahan ilmu buat para pembaca sekalian,,,

Tentang gimana cara mengurutkan angka dari angka terbesar hingga terkecil.

Disini, Penulis menggunakan Listbox sebagai wadah untuk menampung hasil output yang akan ditampilkan setelah hasil Running dilakukan, dan memakai angka 1-10!!!

wadah??? nampung??? air hujan ya???

hahahaha... tapi yang jelas pengertian yang penulis buat seperti itu adanya. 

Tanpa panjang lebar langsung ke Listingnya yuukkk...

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

for i:=1 to 10 do

listbox1.items.add(inttostr(i));

end;

end.

Hasil Setelah di Running!!!

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!