掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FullCollapseを呼び出さないとTreeViewの内容が表示されない (ID:9346)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでも同じです procedure TMain.ReadT(); var tagfile:string; i:integer; Node:TTreeNode; SL1:TStringList; Str:string; begin tagfile := FPath+TemplateFile; if FileExists(tagfile) = True then begin//ファイルがあれば SL1 := TStringList.Create; try TagTreeView.Items.BeginUpdate; TagTreeView.Items.Clear; SL1.LoadFromFile(tagfile); Node:=nil; for i:=0 to SL1.Count-1 do begin if ansipos('<',SL1[i])=1 then begin Node:=MakeNode(CSRight(Str,#13#10),Node); Str:=''; end else if ansipos('>',SL1[i])=1 then begin MakeNode(CSRight(Str,#13#10),Node); Node:=(Node.Parent); Str:='' end else if ansipos('=',SL1[i])=1 then begin MakeNode(CSRight(Str,#13#10),Node); Str:='' end else Str:=Str+#13#10+SL1[i]; end; finally ShowMessage(''); TagTreeView.Items.EndUpdate; SL1.Free; end; end;//ファイルがあれば end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.