Arsip: Pemula Mohon Bantuan

 
user image
more 14 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
user image
more 14 years ago

onsir

Mungkin karena perintah DelimitedText, yang menambahkan tanda kutip tsb
user image
more 14 years ago

mas_kofa

@afry: doc:=opendialog1.Files.DelimitedText;
yg ini niatnya buat apa?
user image
more 14 years ago

Mr-Soft

gini aja klo mo langsung dapet filenamenya

begin
if OpenDialog1.Execute then
 label7.caption:=OpenDialog1.FileName;
end;
user image
more 14 years ago

haidarfaz

Nambahin yang dr @Mr-Soft untuk mendapatkan Folder gunakan ExtractFilePath(OpenDialog1.FileName)
user image
more 14 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
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com