Forum: Object-Pascal / Delphi-Language
Delphi
by City Light,
24. Mai 2003
nein auch nicht jeden fals bei mir nicht ,hab es jetzt so gemacht ,und es geht jetzt
if Pos(UpperCase(ExtractFileExt(SR.Name)), Extensions) > 0 then
FileList.Append(Path + SR.Name);
Forum: Object-Pascal / Delphi-Language
Delphi
by City Light,
24. Mai 2003
bin ich zu blöd oder was ,aber ich finde den nicht... :wall:
procedure GetFileList(const Path: String; const Extensions: String; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
try
repeat
if (SR.Attr and faDirectory) > 0 then
begin