Masih mengenai program musik player saya yang di bahas pada posting sebelumnya , kali ini masalah yang muncul adalah susunan item yang tidak alfabetik .. Item yang ditambahkan ke ListBox di susun berdasarkan waktu penginputannya .. Tapi jangan khawatir , saya punya solusinya :)
Begin ..
Agar lebih rapih , sebaiknya kita membuat procedure khusus untuk code yang menjadikan item ListBox berurutan secra alfabet.
Pertama , buat procedure dengan nama alfabet , lebih lengkapnya lihat code berikut ::
procedure alfabet;
var i , x : Integer;
begin
with Form1 do
begin
for i := 0 to (ListBox1.Items.Count - 1) do
for x := 0 to (ListBox1.Items.Count - 1) do
if (ListBox1.Items[x] < lListBox1.Items[i])and (x > i) then
begin
ListBox1.Items.Insert(i, ListBox1.Items[x]);
ListBox1.Items.Delete(x + 1);
end;
end;
end;
var i , x : Integer;
begin
with Form1 do
begin
for i := 0 to (ListBox1.Items.Count - 1) do
for x := 0 to (ListBox1.Items.Count - 1) do
if (ListBox1.Items[x] < lListBox1.Items[i])and (x > i) then
begin
ListBox1.Items.Insert(i, ListBox1.Items[x]);
ListBox1.Items.Delete(x + 1);
end;
end;
end;
Selanjutnya , kita tinggal mengimplementasikannya .. Source code berikut , adalah bagian dari posting sebelumnya ::
procedure Form1.Button1Click(Sender: TObject);
var s : String;
begin
If openDialog1.execute then
begin
If openDialog1.execute then
Begin
MediaPlayer1.fileName := OpenDialog1.fileName;
s := OpenDialog1.FileName;
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
alfabet;
end;
end;
end;
Dan akhirnya , item yang anda tambahkan akan berurutan sesuai dengan abjadnya , cukup simple bukan ?
Tunggu posting selanjutnya :)
End.
Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.
0 komentar:
Posting Komentar