我需要一种在ListBox中列出Android系统文件的正确方法，我使用了这个想法，但是它没有用到plz帮助，在此先感谢您
` var
fs: TFileStream;
fn: string;
sr: TSearchRec;
I : integer;
begin
I := 0;
if FindFirst('data/data/com.android.browser/*.*', faAnyFile, sr) = 0 then
begin
repeat
ListBox1.Items.Add('data/data/com.android.browser/' + sr.Name);
Inc(I);
if I = 7 then Break;
until FindNext(sr) <> 0;
FindClose(sr);
end;
if I < 7 then
begin
if FindFirst('data/data/com.android.browser/*.*', faAnyFile, sr) = 0 then
begin
repeat
ListBox1.Items.Add('data/data/com.android.browser/' + sr.Name);
Inc(I);
if I = 7 then Break;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;`
使用System.IOUtils.TDirectory.GetFiles。
uses System.Types, System.IOUtils, System.SysUtils;
procedure AddFiles(MyListBox: TListBox);
var
SDA: TStringDynArray;
I, II: Integer;
LBI: TListBoxItem;
begin
SDA := TDirectory.GetFiles(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim,'*.dat');
for I := Low(SDA) to High(SDA) do
begin
II := MyListBox.Items.Add(ExtractFileName(SDA[I]));
LBI := MyListBox.ListItems[II];
LBI.ItemData.Detail := SDA[I];
end;
end;
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句