Uraian ini mungkin membantu. 1. Delphi menganggap karakter "&" sebagai tanda bahwa karakter berikutnya adalah karakter akselerator (huruf dengan garis bawah). 2. Delphi pada umumnya menampilkan teks (Caption) menggunakan fungsi DrawText() yang memang akan selalu memeriksa keberadaan karakter "&" tersebut. Lihat contohnya pada TLabel, TPanel, dll. Fungsi ini setahu saya bisa dimatikan tapi tidak di level aplikasi, melainkan di level perancangan komponennya (VCL). 3. Sebenarnya yang beda hanya tampilannya saja, sedangkan 'nilai' stringnya sendiri masih sama. Hal ini bisa dibuktikan kalau kita menggunakan method TextOut() untuk menampilkan stringnya. Lihat simulasinya pada attachment sesuai dengan langkah anda. 4. Solusi untuk tampilannya, jika memang ini problem anda, adalah: - Jangan menggunakan ShowMessage() tapi gunakan Form (seperti untuk menampilkan About), dan tuliskan stringnya dengan TextOut() langsung pada Canvas-nya, atau - Buat rutin untuk menyisipkan satu lagi karakter "&" di samping yang telah ada, sehingga stringnya menjadi "D:\My Documents\Song && Music\MP3\ME - Inikah Cinta". Bisa 'kan? Ya, inilah cinta..... :-) Ya, mudah-mudahan membantu. Djoko Susilo -----Original Message----- From: Eldy Munggaran <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] <[EMAIL PROTECTED]> Date: 08 Mei 2000 14:41 Subject: [MIKRODATA] Masalah Delphi ! >(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. > >
------------------------------------------------------------------------ [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.
