73%
22%
19%
11%
6%
Freitag, 27. August 2004, 02:02
Hah! Das ist ja nen Zufall, schau mal, was ich gerade in einem anderen Browsertab geöffnet habe: http://www.festra.com/eng/snip04.htm
Schau dir mal die Prozedur an:
Der musst du als erstes eine TStringList übergeben, also vorher eine mit
deklarieren, danach mit
initialisieren.
Jetzt kannst du die Prozedur aufrufen. Als StartDir einfach das gewünschte Verzeichnis übergeben und als Filemask '*.*', wenn du alle Dateien des Ordners auslesen willst. Als Beispiel also:
(Listet alle Dateien des Hauptverzeichnisses vom Laufwerk "C" auf)
Wenn jetzt alle Files in einer Combobox gelistet werden sollen:
Bei einer Listbox wäre es entsprechend:
Wünsche gutes Gelingen
Schau dir mal die Prozedur an:
|
Quellcode |
1 |
procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string); |
Der musst du als erstes eine TStringList übergeben, also vorher eine mit
|
|
Quellcode |
1 |
var myStringList : TStringList; |
deklarieren, danach mit
|
|
Quellcode |
1 |
myStringList := TStringList.Create; |
initialisieren.
Jetzt kannst du die Prozedur aufrufen. Als StartDir einfach das gewünschte Verzeichnis übergeben und als Filemask '*.*', wenn du alle Dateien des Ordners auslesen willst. Als Beispiel also:
|
|
Quellcode |
1 |
FindFiles(myStringList; 'c:\', '*.*'); |
(Listet alle Dateien des Hauptverzeichnisses vom Laufwerk "C" auf)
Wenn jetzt alle Files in einer Combobox gelistet werden sollen:
|
|
Quellcode |
1 |
combobox1.Assign(myStringList); |
Bei einer Listbox wäre es entsprechend:
|
|
Quellcode |
1 |
listbox1.Assign(myStringList); |
Wünsche gutes Gelingen
Warum kann ein Tag nicht 36 Stunden haben? ://
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Abi_Andy« (27. August 2004, 02:03)