(e)
Saya coba memasukan data pada ListView di kolom 1 dengan nama file dan
kolom 2 lokasi file, prosedurnya sbb :
----------------------------------------------------------------------------
-----------
procedure TMainForm.ButtonClick(Sender: TObject);
Var I : Integer;
begin
If OpenDialog.Execute Then
Begin
ListView.Items.Clear;
For I:=0 To OpenDialog.Files.Count-1 do
Begin
ListView.Items.Add.SubItems.Text:=OpenDialog.Files.Strings[I];
ListView.Items.Item[I].Caption:=ExtractFileName(OpenDialog.Files.Strings[I])
;
End;
End;
end;
----------------------------------------------------------------------------
----------------
Terus saya coba mengambil data dari ListView kolom ke dua ketika ListView di
klik, prosedurnya :
----------------------------------------------------
procedure TMainForm.ListViewClick(Sender: TObject);
begin
ShowMessage(ListView.Selected.SubItems.Text);
end;
----------------------------------------------------
Pada awalnya tidak ada masalah, tapi kalo direktorinya memiliki string '&',
delphi tidak mengenalinya walaupun ListView Mengenalinya, pada Kolom
ListView Ke-2 misalnya lokasi file adalah "D:\My Documents\Song &
Music\MP3\ME - Inikah Cinta", nanti text yang dikeluarkan oleh perintah
ShowMessage(ListView.Selected.SubItems.Text); jadi "D:\My
Documents\Song_Music\MP3\ME - Inikah Cinta" yang menimbulkan kesalahan
karena perbedaan antara "\Song & Music\" dengan "\Song_Music\" , ada yang
tahu solusinya ???
(e)
------------------------------------------------------------------------
[EMAIL PROTECTED] - Mailing List (milis) MIKRODATA
Post message: [EMAIL PROTECTED]
Subscribe : [EMAIL PROTECTED]
Unsubscribe : [EMAIL PROTECTED]
Website : http://mikrodata.co.id
FTPsite : ftp.mikrodata.co.id
Archives : http://www.mail-archive.com/forum%40mikrodata.co.id/
Milis ini menjadi kontribusi rubrik Konsultasi, Klinik Virus, Opini IT,
Klinik Linux, dan Antar Pembaca di MIKRODATA, Info Komputer,
Detikcom (i-Net), KOMPAS Cyber Media (KCM), dan AntiVirus Media.
