Arsip: Pemula Mohon Bantuan
                
                   more 16 years ago
                  
              afry
Pemula mohon bantuan
saya punya script seperti ini :
procedure Tinput_akta.Button1Click(Sender: TObject);
var
doc, dec : string;
begin
opendialog1.Execute;
doc:=opendialog1.Files.DelimitedText;
dec:=ExtractFileName(doc);
 label7.Caption:=doc;
 label8.Caption:=dec;
end;
dengan tujuan untuk mendapatkan nama file dan path dimana file tersebut berada, untuk kemudian disimpan ke database.
untuk nama file yang pendek ( contoh aku.doc ) script ini berjalan dengan baik. tpi untuk nama file yang panjang atau juga memakai 
spasi (contoh akuuuuuuuuuuuuuuuuuuuu.doc atau pasar baru.doc) ada keanehan, pada hasilnya selalu ada tambahan tanda petik (contoh seharusnya d:\pasar baru.doc menjadi "d:\pasar baru.doc"
atau d:\akkuuuuuuuuuuuuu.doc menjadi "akuuuuuuuuuuuuuuuu.doc") kenapa yah? mohon bantuan
trim's
                
                
                   more 16 years ago
                  
              Mr-Soft
gini aja klo mo langsung dapet filenamenya
                
begin
if OpenDialog1.Execute then
 label7.caption:=OpenDialog1.FileName;
end;
                
                   more 16 years ago
                  
              haidarfaz
Nambahin yang dr @Mr-Soft untuk mendapatkan Folder gunakan 
ExtractFilePath(OpenDialog1.FileName)
                
                
                   more 16 years ago
                  
              afry
alhamdulillah terima kasih atas semua masukannya... mudah2an kebaikan berbagi dari para master semua mendapat balasan yang setimpal aminnn terima kasih
                more ...
              - Pages:
 - 1
 
                    
                     reply  |
                     Report Obsolete
                  
                AI Forward
            
🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: 
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
 - Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago 
Random Topic
- Tedit
by sutomohd in MsSQL more 20 years ago - [tanya] kode ascii dari tiap tombol keyboard
by krizzna in Tip n Trik Pemrograman more 19 years ago - tanya dunk
by sidiq_himura in Hal umum tentang Pascal Indonesia more 17 years ago - distribusi program pake mysql,MySQLDAC
by noviana in Tip n Trik Pemrograman more 17 years ago - Report Horizontal gimana caranya ?
by MardiahBarnawi in Reporting more 17 years ago - fitur chatting(siapa tau bisa)
by dinox in Kritik & Saran more 19 years ago - How to enable/disable LAN from delphi
by j14n6 in Hal umum tentang Pascal Indonesia more 19 years ago - bagaimana cara Save Wav
by alevan in Multimedia & Graphic Enhancement more 14 years ago - INSERT gak mau nge refresh?
by kupretkutu in MySQL more 18 years ago - buat cd interaktif atau pembelajaran pake delphi
by kepew in Hal umum tentang Pascal Indonesia more 15 years ago 

