ben bu siteye yeni katıldım.ben bilişim sistemleri müh. okuyorum.birbirimize cok faydalı olacagız.herkese teşekkur ederim.

Benim elimde videolar var ekleyebilirim.

merhaba,bana acil delphi de dizinin determinantını alan program lazm..yardım ederseniz çoksevinirm..hatta şimdiden teşkkrlr..

bu sitede hiç birsey yok yardım yani video falan da yok

Klasör ve alt klasörlerde dosya aramak ve bulunanlari bir listeye atmak

{
Form1'in üzerindeki Memo1'e bulunan dosyalari ekler.
Not: Kod recursion kullanmakta. Cok fazla (Binlerce)
dosya bulundugunda Stack Overflow hatasi verebilir
}


procedure TForm1.FindFiles(StartDir, FileMask: string)
var
SR: TSearchRec
DirList: TStringList
IsFound: Boolean
i: integer
begin
if StartDir[length(StartDir)] <> &#39;&#92;&#39; then
StartDir := StartDir + &#39;&#92;&#39;


IsFound :=
FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0
while IsFound do begin
Memo1.Lines.Add(StartDir + SR.Name)
IsFound := FindNext(SR) = 0
end
FindClose(SR)

DirList := TStringList.Create
IsFound := FindFirst(StartDir+&#39;&#42;.&#42;&#39;, faAnyFile, SR) = 0
while IsFound do begin
if ((SR.Attr and faDirectory) <> 0) and
(SR.Name[1] <> &#39;.&#39;) then
DirList.Add(StartDir + SR.Name)
IsFound := FindNext(SR) = 0
end
FindClose(SR)

for i := 0 to DirList.Count-1 do
FindFiles(DirList[i], FileMask)
DirList.Free
end
&#47;&#47;eklememiz dosya ve alt klasor arama olacaktır arkaslar
&#47;&#47;SAMET TURALI