Arsip: [tanya] bagaimana load file di listbox tanpa full path name

more 11 years ago
andrypein
ini ss nya
ini kodingnya

var
namatema : string;
begin
for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style','*'+TStyleEngine.FileExtension) do
ListBoxtema.Items.Add(namatema);
itu kode malah menghasilkan full directory nya
yang ane pengen cuma si nama file nya aja
:roll:
semua udah dicoba,dari application.exename ,extract ini itu :(
more 11 years ago
halimanh
salah satu cara bisa bikin fungsi untuk mengambil nama filenya aja dari namatema
uses StrUtils;
function CariNamaFile(const path : string) : string;
var
posisi, posisiAkhir : Integer;
begin
posisi := Posex('', Path, 1);
posisiAkhir := posisi;
while posisi <> 0 do
begin
posisi := Posex('', Path, posisi+1);
if posisi <> 0 then posisiAkhir := posisi;
end;
if posisiAkhir > 0 then
result := AnsiMidStr(path, posisiAkhir+1, Length(path)-posisiAkhir)
else
result := '---'; //nggak ketemu
end;
terus makenya
...
for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style',''+TStyleEngine.FileExtension) do
ListBoxtema.Items.Add(cariNamaFile(namatema));
...
@andrypein: ini ss nyaini kodingnya
itu kode malah menghasilkan full directory nya yang ane pengen cuma si nama file nya aja :roll: semua udah dicoba,dari application.exename ,extract ini itu :(var namatema : string; begin for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style',' '+TStyleEngine.FileExtension) do ListBoxtema.Items.Add(namatema);

more 11 years ago
tomxpatra
Procedure GetFileList(var aFiles : TStringList; sPath : string; sMask : string = '. ');
var
iIndex : Integer;
SearchRec : TSearchRec;
begin
if aFiles = Nil then
aFiles := TStringList.Create;
if sPath[Length(sPath)] <> '' then
sPath := sPath + '';
iIndex := FindFirst(sPath+sMask, faArchive, SearchRec);
while iIndex = 0 do
begin
aFiles.Add(SearchRec.Name);
iIndex := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
ane pake procedure di atas dari hasil googling bisa dimodifiksi jadi funcion. itu hasilnya balik lagi ke parameter aFiles lho nanti tinggal pindahkan hasil dari aFiles (TStringList) ke list box. ok
mudah mudah membantu[/pas]
more 11 years ago
andrypein
terimakasih semua nya
ternyata kesalahan ane doank
panik jadi ga konsen :lol:
working gan
ane lupa nambahin extractfilename
:D
more ...
- Pages:
- 1
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
- *.dcu
by nurez in Tip n Trik Pemrograman more 16 years ago - GameMaker, buat yg suka BIKIN game sendiri
by simba in Games more 17 years ago - Absen dengan barcode
by nasbms in Tutorial & Community Project more 11 years ago - Masalah dengan file smscomp.pas neh
by p2bf in Tip n Trik Pemrograman more 16 years ago - Menentukan ukuran data
by agnes in Hal umum tentang Pascal Indonesia more 15 years ago - Tentang closequery
by Zulkarnain in Tip n Trik Pemrograman more 16 years ago - contoh sederhana fungsi random
by asiyrob in Tip n Trik Pemrograman more 15 years ago - Cetak structure tabel ?
by debby in Hal umum tentang Pascal Indonesia more 15 years ago - Variabel unit yg berbeda
by junanbbn in Lain-lain more 12 years ago - out of memory
by jordan in Hal umum tentang Pascal Indonesia more 16 years ago