可否帮忙解读一下
implementation
{$R *.dfm}
procedure TfrmGZZD.FormCreate(Sender: TObject);
begin
loadDocsToTreeView();
end;
function getAllTextFile(Path: string): TStringList;
var
f: TSearchRec;
r: Integer;
ext: string;
begin
Result := TStringList.Create;
if Path[Length(Path)] <> '\' then Path := Path + '\';
r := FindFirst(Path + '*.*', faAnyFile, f);
while r = 0 do
begin
ext := UpperCase(ExtractFileExt(f.Name));
if (ext = '.HTML') or
(ext = '.HTM') then
begin
Result.Append(f.Name);
end;
r := FindNext(f)
end;
FindClose(f);
end;
procedure TfrmGZZD.loadDocsToTreeView;
var
docFolder: string;
docFiles: TStrings;
i: Integer;
tmpNode: TTreeNode;
begin
docFolder := ExtractFilePath(Application.ExeName) + 'docs';
docFiles := getAllTextFile(docFolder);
with tvLeft.Items do
begin
//建立root节点
Clear;
for i := 0 to docFiles.Count - 1 do
begin
tmpNode := Add(nil, docFiles[i]); { Add a root node }
end;
end;
end;
procedure TfrmGZZD.tvLeftClick(Sender: TObject);
var
fileName: string;
docFolder: string;
begin
fileName := tvLeft.Selected.Text;
docFolder := ExtractFilePath(Application.ExeName) + 'docs\';
wb1.Navigate(docFolder + fileName);
end;