現在大家都用智慧型手機了, 我分享大家一定會用到的一段相常實際好用的功能, android 想要匯入一些sdcard file 或是開啟自己的 SqLite database, 就像 vcl TOpenDialog. 

用TPanel 當Owner 放上兩個ToolBar, 一個在Top,一個在Bottom ,中間放一個 ListBox align 設為client,, 但在ListBox之上放一個Label , Caption 顯示所在路徑
procedure TfmMain.WorkBackPath(lPath: string; ListBox: TListBox; PathLabel: TLabel);
var
files, folders: TStringDynArray;
c, i: integer;
LItem: TListBoxItem;
begin
PathLabel.Text := lPath;
//
folders := TDirectory.GetDirectories(lPath);
{ 以下為填入Folder }
TArray.Sort(folders, TComparer.Construct(CompareLowerStr));
ListBox.Clear;
ListBox.BeginUpdate;

for c := 0 to Length(folders) - 1 do
begin
LItem := TListBoxItem.Create(ListBox);
// folder 加圖像
LItem.ItemData.Bitmap.Assign(Image1.Bitmap);
LItem.ItemData.Text := ExtractFileName(folders[c]);
LItem.ItemData.Detail := folders[c];
LItem.TagString := 'folder';
ListBox.AddObject(LItem);
end;
{ 以下為files }
files := TDirectory.GetFiles(lPath);
// System.Generics.Collections, Generics.Defaults
TArray.Sort(files, TComparer.Construct(CompareLowerStr));
for i := 0 to Length(files) - 1 do
begin
LItem := TListBoxItem.Create(ListBox);
LItem.ItemData.Text := ExtractFileName(files[i]);
LItem.ItemData.Detail := files[i];
LItem.TagString := 'file';
ListBox.AddObject(LItem);
end;
//
ListBox.EndUpdate;

end;
=============================================
如下方法呼叫使用, 在未呼叫時, 把Panel.visible 設為 false, path='/mnt/sdcard/download' 做為預設值, 並在MainForm 的OnKeyUP event
(Key = vkHardwareBack) 時, 動態改path 就能逹到更改path


Panel3.Visible := true;

path := ExtractFileDir(path);

WorkBackPath(path, ListBox2, Label1);

==============================================
mFileName := trim(ListBox2.ListItems[ListBox2.ItemIndex].Text) // 所選的檔案

附加檔案：5402e425defdc_Screenshot_2014-08-31-16-49-44~2.jpg

謝謝分享!  

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

SORRY，你另一篇po的不太正常，所以我刪了，還請再po一次。感謝!

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan