如何在Android中列出列表框中的所有Dir文件

如何在列表框中列出所有目录文件？ 我在Windows中尝试了这段代码，它成功了，但在Android中不起作用

procedure ListFileDir(Path: string; FileList: TStrings);
 var
  SR: TSearchRec;
    begin
       if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
      begin
      repeat
     if (SR.Attr <> faDirectory) then
  begin
    FileList.Add(SR.Name);
     end;
    until FindNext(SR) <> 0;
   FindClose(SR);
 end;
end;

  procedure TForm1.Button1Click(Sender: TObject);
begin
   ListFileDir('sdcard/1/', ListBox1.Items);
 end;

procedure-ListFileDir（路径：string；文件列表：TStrings）；
变量
SR:TSearchRec；
开始
如果FindFirst（路径+'*.*'，faAnyFile，SR）=0，则
开始
重复
如果（高级属性目录），则
开始
FileList.Add（SR.Name）；
结束；
直到FindNext（SR）0；
FindClose（SR）；
结束；
结束；
程序TForm1.按钮1单击（发送方：TObject）；
开始
ListFileDir（'sdcard/1/'，ListBox1.Items）；
结束；

您的代码仅适用于Windows。对于跨平台开发，在处理文件和文件夹时应使用

System.IOUtils

具体来说，

t目录.GetFiles（路径）

---

您的代码仅适用于Windows。对于跨平台开发，在处理文件和文件夹时应使用

System.IOUtils

具体来说，

t目录.GetFiles（路径）

---

您的代码仅适用于Windows。对于跨平台开发，在处理文件和文件夹时应使用

System.IOUtils

具体来说，

t目录.GetFiles（路径）

---

您的代码仅适用于Windows。对于跨平台开发，在处理文件和文件夹时应使用

System.IOUtils

具体来说，

t目录.GetFiles（路径）

---

用于跨平台目的的代码的问题不在于使用

FindFirst

和friends本身（

TDirectory.GetFiles

只是它们上面的一个薄包装器），而是

'*.'

构造-您只需要使用

'*'

：

procedure ListFileDir(Path: string; FileList: TStrings);
const
  AllFilesMask = {$IFDEF MSWINDOWS}'*.*'{$ELSE}'*'{$ENDIF};
var
  SR: TSearchRec;
begin
  if FindFirst(Path + AllFilesMask, faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

procedure-ListFileDir（路径：string；文件列表：TStrings）；
常数
AllFilesMask={$IFDEF MSWINDOWS}'*.'{$ELSE}'*'{$ENDIF}；
变量
SR:TSearchRec；
开始
如果FindFirst（Path+AllFilesMask，faAnyFile，SR）=0，则
尝试
重复
如果（高级属性目录），则
开始
FileList.Add（SR.Name）；
结束；
直到FindNext（SR）0；
最后
FindClose（SR）；
结束；
结束；

出于跨平台的目的，您的代码的问题不在于您使用了

FindFirst

和friends本身（

t目录.GetFiles

只是它们上面的一个薄薄的包装器），而是

'*.'

结构-您只需要使用

'*'

：

procedure ListFileDir(Path: string; FileList: TStrings);
const
  AllFilesMask = {$IFDEF MSWINDOWS}'*.*'{$ELSE}'*'{$ENDIF};
var
  SR: TSearchRec;
begin
  if FindFirst(Path + AllFilesMask, faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

procedure-ListFileDir（路径：string；文件列表：TStrings）；
常数
AllFilesMask={$IFDEF MSWINDOWS}'*.'{$ELSE}'*'{$ENDIF}；
变量
SR:TSearchRec；
开始
如果FindFirst（Path+AllFilesMask，faAnyFile，SR）=0，则
尝试
重复
如果（高级属性目录），则
开始
FileList.Add（SR.Name）；
结束；
直到FindNext（SR）0；
最后
FindClose（SR）；
结束；
结束；

出于跨平台的目的，您的代码的问题不在于您使用了

FindFirst

和friends本身（

t目录.GetFiles

只是它们上面的一个薄薄的包装器），而是

'*.'

结构-您只需要使用

'*'

：

procedure ListFileDir(Path: string; FileList: TStrings);
const
  AllFilesMask = {$IFDEF MSWINDOWS}'*.*'{$ELSE}'*'{$ENDIF};
var
  SR: TSearchRec;
begin
  if FindFirst(Path + AllFilesMask, faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

procedure-ListFileDir（路径：string；文件列表：TStrings）；
常数
AllFilesMask={$IFDEF MSWINDOWS}'*.'{$ELSE}'*'{$ENDIF}；
变量
SR:TSearchRec；
开始
如果FindFirst（Path+AllFilesMask，faAnyFile，SR）=0，则
尝试
重复
如果（高级属性目录），则
开始
FileList.Add（SR.Name）；
结束；
直到FindNext（SR）0；
最后
FindClose（SR）；
结束；
结束；

出于跨平台的目的，您的代码的问题不在于您使用了

FindFirst

和friends本身（

t目录.GetFiles

只是它们上面的一个薄薄的包装器），而是

'*.'

结构-您只需要使用

'*'

：

procedure ListFileDir(Path: string; FileList: TStrings);
const
  AllFilesMask = {$IFDEF MSWINDOWS}'*.*'{$ELSE}'*'{$ENDIF};
var
  SR: TSearchRec;
begin
  if FindFirst(Path + AllFilesMask, faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

procedure-ListFileDir（路径：string；文件列表：TStrings）；
常数
AllFilesMask={$IFDEF MSWINDOWS}'*.'{$ELSE}'*'{$ENDIF}；
变量
SR:TSearchRec；
开始
如果FindFirst（Path+AllFilesMask，faAnyFile，SR）=0，则
尝试
重复
如果（高级属性目录），则
开始
FileList.Add（SR.Name）；
结束；
直到FindNext（SR）0；
最后
FindClose（SR）；
结束；
结束；

您是否可以在修改前后通过代码4 me，这是我第一次进行跨平台编程您应该填写本地字符串列表并将其分配给文件列表或使用

文件列表。开始更新
和
文件列表。结束更新
是否可以在修改前后通过代码4 me，这是我第一次进行跨平台编程。您应该填写本地字符串列表并将其分配给文件列表，或者使用
文件列表。在修改之前和之后，开始更新
和
文件列表。结束更新
。您能将代码传递给我吗，这是我第一次进行跨平台编程。您应该填写本地字符串列表并将其分配给文件列表，或者使用
文件列表。在修改之前和之后，开始更新
和
文件列表。结束更新
。您能将代码传递给我吗，这是我第一次进行跨平台编程。您应该填写本地字符串列表并将其分配给文件列表，或者在修改前后使用
FileList.BeginUpdate
和
FileList.EndUpdate
。