Question

在FireMonkey框架中找不到任何文件树组件（当然是跨平台）。任何人有任何想法或知道这样的组件？听起来对我来说是一件基本的事情。

我正在寻找一个简单的＆＃34;探险家般的＆＃34;树视图，如果它真的很漂亮并不重要，因为我可以重新设计或继承和更改。想法？...

Answer 1

没有组件（开箱即用），但您可以使用适用于所有平台的 System.IOUtils 单元快速实施。

例如，给你一个想法：

uses
  System.IOUtils, FMX.TreeView, ...

type
  TForm2 = class(TForm)
    tvPath: TTreeView;
    procedure FormCreate(Sender: TObject);
  private
...

procedure TForm2.FormCreate(Sender: TObject);
var
  sRoot    : string;
  sdaDrives: TStringDynArray;
  sDrive   : string;
  tviDrive : TTreeViewItem;
  osv      : TOSVersion;
begin
  if TOSVersion.Platform = pfMacOS then
  begin
    // Root's folders
    sRoot     := '/';
    sdaDrives := TDirectory.GetDirectories(sRoot);
    for sDrive in sdaDrives do
    begin
      tviDrive      := TTreeViewItem.Create(Self);
      tviDrive.Text := sDrive;
      tvPath.AddObject(tviDrive);
    end;
    sdaDrives := TDirectory.GetFiles(sRoot);
  end
  else
  begin
    // Root's folders
    sRoot     := TDirectory.GetDirectoryRoot(ParamStr(0)); // you probably want to use TDirectory.GetLogicalDrives before this one...
    sdaDrives := TDirectory.GetDirectories(sRoot);
    for sDrive in sdaDrives do
    begin
      tviDrive      := TTreeViewItem.Create(Self);
      tviDrive.Text := sDrive;
      tvPath.AddObject(tviDrive);
    end;
    sdaDrives := TDirectory.GetFiles(sRoot);
  end;
  // files
  for sDrive in sdaDrives do
  begin
    tviDrive            := TTreeViewItem.Create(Self);
    tviDrive.Text       := ExtractFileName(sDrive);
    tviDrive.Font.Style := [TFontStyle.fsItalic];
    tvPath.AddObject(tviDrive);
  end;
end;

这只是一个概念证明，因为它适用于两个平台..当然，还有一些工作要做...... 我已经使用System.SysUtils.TOSVersion向您展示了另一条可能也很有用的记录......

用于在FireMonkey中显示文件系统/文件树的任何组件？

1 个答案: