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]

Prozedur FindFiles (Pfad, Maske: Zeichenfolge; Liste: TStrings; IncludeSubDir: Boolean = True); var SearchRec: TSearchRec; FindResult: Ganzzahl; beginnen List.BeginUpdate; versuche es Pfad: = IncludeTrailingBackSlash (Pfad); FindResult: = FindFirst (Pfad + "*. *", FaAnyFile, SearchRec); versuche es Während FindResult = 0 mit SearchRec beginnen soll if (Attr und faDirectory <> 0) dann beginnen wenn IncludeSubDir und (Name <> "..") und (Name <> ".") dann FindFiles (Pfad + Name, Maske, Liste, IncludeSubDir); ende sonst beginnen wenn MatchesMask (Name, Maske) dann List.Add (Pfad + Name) ist; ende FindResult: = FindNext (SearchRec); ende endlich FindClose (SearchRec); ende endlich List.EndUpdate; ende ende



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.56 MB
Zeit: 0.029 c
1-22211
Uuuu
2001-12-13 22:46
2002.01.08
Guten Abend, Tag, Morgen. Leute helfen !!! So wählen Sie eine Nummer, wechseln in den Tonmodus und geben einen Zufallscode ein *


1-22180
Nathan
2001-12-21 11:07
2002.01.08
Problem!


14-22332
Noname (Andrews)
2001-11-05 16:20
2002.01.08
Moderator HILFE !!!


1-22219
dimonf
2001-12-16 17:23
2002.01.08
So erstellen Sie eine Leinwand in einem Fenster mit einem Fenster


6-22296
Kolyan
2001-10-11 12:49
2002.01.08
TSocket!





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) 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 Italian 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