|
@@ -582,7 +582,6 @@ var
|
|
Entries: TStringDynArray;
|
|
Entries: TStringDynArray;
|
|
Iterator: TJSObject;
|
|
Iterator: TJSObject;
|
|
begin
|
|
begin
|
|
- writeln('FindFirst ',Path);
|
|
|
|
Mask:=ExtractFileName(Path);
|
|
Mask:=ExtractFileName(Path);
|
|
if Mask<>AllFilesMask then
|
|
if Mask<>AllFilesMask then
|
|
raise Exception.Create('FindFirst: ToDo: Mask='+Path);
|
|
raise Exception.Create('FindFirst: ToDo: Mask='+Path);
|