Dear master semua.. bisa bantu kasih masukan buat melakukan Indexing Document? jadi saya ingin buat sebuah program melakukan indexing semua document yg ada di sebuah folder. (seperti search gt) semisal. ada folder 'satu' trus didalamnya ada 10 file document. ndah judul file tersebut dibaca and di Index. hasil indeknya dimasukan kesebuah table. (kalo bagian ini mungkin saya pny bayangan lebih). nah yg buntu adalah proses pembacaan document tsb. :cry: :cry: :cry: sampai saat ini, saya blm mendapatkn pencerahan mengenai caranya, atau memakai komponent apa saja. maap karna baru mulai mendalami delphi. terimakasih atas masukannya. :D

Proses pembacaan judul document maksudnya membaca judul documentnya atau nama filenya ?

Coba pakai saja procedure ini. Procedure ini bisa digunakan untuk mendapatkan judul dari semua file yang ada dalam suatu directory. procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + '. ', faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) <> 0; FindClose(SR); end; end; Cara Memanggilnya: ListFileDir([nama directory yang ingin dilist], listbox1.items); Dengan procedure di atas maka bisa didapatkan list file2 yang ada dalam suatu directory. setelah itu dapat diindex lebih lanjut

@heriy4nt0: Proses pembacaan judul document maksudnya membaca judul documentnya atau nama filenya ?

nama file and judul document D :D

@setiabudi_david: Cara Memanggilnya: ListFileDir([nama directory yang ingin dilist], listbox1.items);

gak jalan waktu pemanggilan gan. jd ane buat folder and dalam folder ada beberapa document atau file, trus ane panggil (nama foldernya=test). ane panggil: ListFileDir(test, listbox1.items); or ListFileDir([test], listbox1.items); [quote] [error]openfile.pas(49):undeclared identifier: 'test'; [quote]

at Setia budi, makasih yah, udah jalan :D :D :D