初学delphi,几个题目高手帮我看下

Question

1。定义并初始化一个以结构(struct)为元素的动态数组2。为C盘文件目录建一棵树3。某些商品单件利润高，但量小；另外一些商品则相反，利润低但销量大，请你设计一种方案，以获得整体最大利润

Answer 1

1。定义并初始化一个以结构(struct)为元素的动态数组
假定结构为FStruct
var
  AStruct: array of FStruct;
使用时根据实际大小分配大小
  SetLength(Struct, realLength);
...2。为C盘文件目录建一棵树
procedure DirToTreeView(Tree: TTreeView; Directory: string;
                  Root: TTreeNode; IncludeFiles:Boolean);
var
  SearchRec : TSearchRec;
  ItemTemp : TTreeNode;
begin
  with Tree.Items do
  begin
  try
    BeginUpdate;
    if Directory[Length(Directory)] <> '\' then Directory := Directory + '\';
    if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then
    begin
      repeat
        if (SearchRec.Attr and faDirectory = faDirectory) and
        (SearchRec.Name[1] <> '.') then
        begin
          if (SearchRec.Attr and faDirectory > 0) then
          Root := AddChild(Root, SearchRec.Name);
          ItemTemp := Root.Parent;
          DirToTreeView(Tree, Directory + SearchRec.Name, Root,
          IncludeFiles);
          Root := ItemTemp;
        end
        else if IncludeFiles then
          if SearchRec.Name[1] <> '.' then
          AddChild(Root, SearchRec.Name);
        until FindNext(SearchRec) <> 0;
        FindClose(SearchRec);
    end;
    finally
      EndUpdate;
    end;
  end;
end;
  

Answer 2

1。定义并初始化一个以结构(struct)为元素的动态数组
假定结构为FStruct
var
  AStruct: array of FStruct;
使用时根据实际大小分配大小
  SetLength(AStruct, realLength);
...