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

more 8 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 8 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 8 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 8 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
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- hapus saja
by iandcc in Posting Tidak Sesuai more 13 years ago - Mencari source code (code-source.com) dg Firefox :add-ons
by maulaku in OOT more 13 years ago - mau belajar bikin program database pake mysql
by R960XT in MySQL more 14 years ago - [Tutorial] Teknik Sprite Based dengan Delphi
by ZeAL in Tutorial & Community Project more 15 years ago - Fast Report dalam EXE ?
by himen81 in Hal umum tentang Pascal Indonesia more 14 years ago - multi filtering pada TZTable
by ImanD in Tip n Trik Pemrograman more 13 years ago - mau minta bantuan soal koding nihh
by goodday in Hal umum tentang Pascal Indonesia more 15 years ago - tanya TLabel
by tAtA in Tip n Trik Pemrograman more 10 years ago - list index out of bound
by rizu in Tip n Trik Pemrograman more 12 years ago - Struktur Exe
by p2bf in Tip n Trik Pemrograman more 13 years ago