Загрузка файлов в ListBox

Question

Я пытаюсь загрузить файлы с расширением CSV в ListBox, но мой код не работает на платформе Android. Что не так с кодом?

procedure LoadFileList(aFiles: TStringList; sPath: string; sMask: string = '*.*'); 
var 
iIndex: integer; 
SearchRec: TSearchRec; 
begin 
    if sPath[Length(sPath)] <> '\' then 
    sPath := sPath + '\'; 

    iIndex := FindFirst(sPath+sMask, faArchive, SearchRec); 

    while iIndex = 0 do begin 
      aFiles.Add(SearchRec.Name); 
      iIndex := FindNext(SearchRec); 
    end; 

    FindClose(SearchRec); 
end; 

Использование:

LoadFileList(TStringList(ListBox1.Items), TPath.GetSharedDocumentsPath, '*.csv'); 

Answer 1

"Не работает" очень неясное описание, но '\' выглядит очень подозрительно. Вместо этого Linux использует '/'. Также строки равны нулю на основе Delphi для Android/iOS.

Вместо

if sPath[Length(sPath)] <> '\' then 
    sPath := sPath + '\'; 

использовать независимо от платформы версии:

sPath := IncludeTrailingPathDelimiter(sPath); 

Answer 2

, так как вы используете XE7 у вас есть доступ к IOUtils. Тогда это будет делать трюк для вас:

uses 
    IOUtils; 

procedure LoadFileList(aFiles: TStrings; sPath: string; sMask: string = '*.*'); 
var 
    aFile: string; 
begin 
    aFiles.Clear; 
    for aFile in TDirectory.GetFiles(IncludeTrailingPathDelimiter(sPath), sMask) do 
    aFiles.Add(aFile) 
end;