Well, setelah tadi penulis share tentang mengurutkan angka secara Ascending, kini penulis ingin membantu rekan-rekan semua mengurutkannya secara Descending(Dari Angka Terbesar Hingga Terkecil).
Listing Programnya!!!
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i:=10 downto 1 do
listbox1.items.add(inttostr(i));
end;
end.
Hasil setelah Di Running!
Listing Programnya!!!
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i:=10 downto 1 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!!!!
Silahkan Tinggalkan Komentar Anda!!!!
Tidak ada komentar:
Posting Komentar