Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Wie? Finden Sie ähnliche Zweige


Xtorm   (2001-12-19 10:40) [0]

Wie Sie die gesamte Liste der Dateien und Ordner erhalten, ist auf der Festplatte mit: \ erlaubt.
nur ohne die hilfe von komponenten ???



Bizon   (2001-12-19 10:46) [1]

Verwenden Sie die FindFirst & FindNext-Dateien



Dimka Maslov   (2001-12-19 10:52) [2]

procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
Path:=IncludeTrailingBackSlash(Path);
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory<>0) then begin
if IncludeSubDir and (Name<>"..") and (Name<>".")
then FindFiles(Path+Name, Mask, List, IncludeSubDir);
end else begin
if MatchesMask(Name, Mask) then List.Add(Path+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;



cpp   (2001-12-19 10:53) [3]

Hier und meine Quelle kann man anpassen

Prozedur ReadAllFiles (DirFrom: Zeichenfolge);
var SearchRecOtkuda: TSearchRec;



Prozedur ReadFile (Dateiname: Zeichenfolge);
beginnen
// was wir mit der Datei machen wollen
end;

Prozedur ReadDir (DirName: Zeichenfolge);
beginnen
// was wir wollen und mit dem Verzeichnis machen
if (DirName <> ".") und (DirName <> "..") dann
beginnen
ReadAllFiles (DirFrom + "\" + DirName);
end;
end;

beginnen
Wenn FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0, dann
beginnen
if (faDirectory und SearchRecOtkuda.Attr)> 0 dann
ReadDir (SearchRecOtkuda.Name)
sonst
ReadFile (SearchRecOtkuda.Name);
Während FindNext (SearchRecOtkuda) = 0 ausgeführt wird
beginnen
if (faDirectory und SearchRecOtkuda.Attr)> 0 dann
ReadDir (SearchRecOtkuda.Name)
sonst
ReadFile (SearchRecOtkuda.Name);
end;
end;
end;



Xtorm   (2001-12-19 11:39) [4]

DANKE Jeder, jetzt funktioniert alles !!!!



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben





Speicher: 0.55 MB
Zeit: 0.025 c
4-22506
Gluka
2001-11-06 00:16
2002.01.08
Wie man eine * .dll-Datei in einer Exe-Datei stoppt?


4-22473
amamed_3071
2001-11-02 13:46
2002.01.08
Epson Printer-Befehle


7-22433
igor_prg
2001-09-25 21:28
2002.01.08
Wie melde ich mich an?


14-22337
Alexander
2001-11-05 13:20
2002.01.08
Druckserver DP-101 (D-Link) und Drucken unter DOS


6-22289
Kirill
2001-10-03 18:33
2002.01.08
IE Kontextmenü





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italienisch Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch Bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada Khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch