Dateien mit Maske aus Verzeichnis lesen

Sprache: Deutsch
Programmiersprache: Delphi
Veröffentlicht von: pumi
Letzte Änderung: 16.05.2006
Aufrufe: 1466

Beschreibung

Dateien mit Maske aus Verzeichnis lesen
function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;

Code

Zeilennummern anzeigen

1 function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist; 2 3 var SRec: TSearchRec; 4 5 begin 6 7 Path := IncludeTrailingBackslash(Path); 8 9 result := TStringList.Create; 10 11 try 12 13 if FindFirst(Path + Mask, not faDirectory, SRec) <> 0 then exit; 14 15 repeat 16 17 case ShowPath of 18 19 True: result.Add(Path + SRec.Name); 20 21 False: result.Add(SRec.Name); 22 23 end; 24 25 until FindNext(SRec) <> 0; 26 27 finally 28 29 FindClose(SRec); 30 31 end; 32 33 end; 34 35 36 37 //Aufruf zB: 38 39 procedure TForm1.btnFillListboxClick(Sender: TObject); 40 41 begin 42 43 listbox1.items := ReadDir('c:\test', '*.*', true); 44 45 end;

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *