Arsip: inisial folder

more 16 years ago
strike_set
mau nanya nih?
gimana cara melakukan inisialisai direktori
misal-->
C:\peraturan\baru[/]
tapi yang ntar dibaca ma aplikasi
hanya folder 2baru[/]
jadi ntarnya aplikasi bisa nyari folder 2baru
terserah lokasinya mau di drive C, drive D, dll

more 16 years ago
DelphiExpert
ya diparsing aja mas... :mrgreen:
ato kalo ngga' mau susah2 parsing, cara paling guampang tapi konyol adalah sbb:
const ThePath = 'C:\peraturan\baru'; // hanya contoh menggunakan constanta, jng ditelan mentah2 :mrgreen:
var S: TStrings;
TheFolder: string;
begin
S:= TStringList.Create;
try
S.Text:= StringReplace(ThePath, '',#13#10,[rfReplaceAll]); // split text
TheFolder:= S; // ambil string terakhir dlm list
finally
FreeAndNil(S);
end;
end;

more 16 years ago
strike_set
S.Text:= StringReplace(ThePath, '',#13#10,[rfReplaceAll]); // split text
'',#13#10
maksudnya apa

more 16 years ago
DelphiExpert
itu adalah character dng index 13 & 10 (lihat character map)
alias <CR> cariage-return ama <LF> line-feed
kenapa pake dua char tsb? karena TStringList secara default melakukan split ato memisahkan/separate text setiap ditemukan character <CR> atau <LF>
naah... kudhu tahu perilaku TStringList sebelum menggunakannya kan :mrgreen: belajar lagiii... belajar lagiii... xixixi

more 16 years ago
strike_set
koding yang tadi itu
manggil folder baru ato peraturan\baru
nah kalo misalkan foldernya ada di drive D
tapi const yang di pake drive C
masih bisa ngebaca gak

more 16 years ago
DelphiExpert
teknik tersebut menggunakan teknik split / memenggal sederetan text menjadi bbrapa bagian berupa list,
charackter yg di penggal adalah '', diganti dng <CR><LF>, artinya setiap char '' akan di REPLACE;
string hasil penggalan (masih berupa single string/1 line) kemudian di assign ke TStringList.Text; yg secara otomatis
oleh TStringList akan dimasukkan sebagai multiple lines dlm array/list. setiap ditemukan <CR><LF> oleh TStringList akan disisipkan sebagai list item baru.
kalau diilustrasikan adalah sbb:
const ThePath = 'C:\peraturan\baru'
split ThePath berdasar char '' sehingga membentuk list berikut:
index | string
----------------
0 | C:
1 | peraturan
2 | baru
----------------
yang kamu butuhkan adalah string terakhir dari list, yaitu diindex ke 2 (S.Count-1) = baru
ngga' peduli drive C, D, X, Y, Z (ada di index 0) = C:
saya rasa sudah sedemikian jelas untuk dipertanyakan lagi
more 16 years ago
strike_set
kalo misalkan inisialisasi direktorinya langsung ke nama folder -->misal pertamina
gimana carnya mas ya
misalkan kita mau manggil folder pertamina
nggak peduli pertama itu folder,subfolder ato sub-sub folder
pokoknya manggil folder pertamina aja

more 16 years ago
DelphiExpert
kalo misalkan inisialisasi direktorinya langsung ke nama folder -->misal pertamina gimana carnya mas ya misalkan kita mau manggil folder pertamina nggak peduli pertama itu folder,subfolder ato sub-sub folder pokoknya manggil folder pertamina ajamaksud dikau ngga' jelas! 1. inisialisasi direktorinya -> maksudnya apa 2. manggil folder -> maksudnya apa jelaskan secara sistematis, duduk permasalahannya seperti apa, maunya gimana

more 16 years ago
strike_set
begini critanya
kan aku punya file pertmini.txt
aq simpan di folder pertamina -->pertamina\pertamini.txt
maunya tuh, aplikasi yang aq buat itu
ngebaca folder pertamina untuk mengakses filse pertamini.txt
dimanapun letak folder pertamina
entah di
C:\baru\dua\pertamina ato D:\diriku\pertamina
ato yang lain
pokoknya biar aplikasi itu hanya ngebaca folder pertamina
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Upload Image (fitur baru)
by LuriDarmawan in Hal umum tentang Pascal Indonesia more 17 years ago - Konversi data dalam Database ke Excel
by n3o_cybertech in Tip n Trik Pemrograman more 16 years ago - avatarku terkorupsi
by DelphiExpert in OOT more 15 years ago - Please Help Donk ....Masalah bikin Function Ascii...
by palapetir in Tip n Trik Pemrograman more 15 years ago - interface port paralel
by anthadi in Tip n Trik Pemrograman more 15 years ago - INSERT n UPDATE pada ADO ???
by coacoac in Tip n Trik Pemrograman more 15 years ago - Ada yang bisa bantuin masalah data warehouse gak???
by hidanzetsu in Hal umum tentang Pascal Indonesia more 14 years ago - barcode reader n pembuatan code barcode
by oshea in Tutorial & Community Project more 17 years ago - Mendeklarasikan Tanggal dan Konstanta Lainnya
by umarbakri in MsSQL more 16 years ago - link komponen tdotmatrix delphi7 free
by boediman in OOT more 15 years ago