delphiにてtreeviewの書き出し

質問

お世話になっております。
当方初心者なのですが、ツリーの書き出しで
つまってしまいました。
treeviewの書き出しではSavetofileがありますが、
あくまでテキスト情報のみですよね。
アイコン、というかimageindexの情報も含めて
書き出す、ということはできないでしょうか？
またそれを読み込み、treeviewの再構築ということは
できないでしょうか？
ここで完全に息詰まってしまいました。
よろしくおねがいします。

回答No.1

papayuka · ベストアンサー

こんにちは。

新規Formに、TreeView1,Button1,ImageList1を置き、ImageList1にはNode用のImageを入れてある状態です。

IDE環境から起動した場合、初回実行時は、datファイルがないのでエラーになりますが、2回目以降はエラーになりません。

Delphi5でテストしてます。

//********************************************************
//読込み
procedure TForm1.FormCreate(Sender: TObject);
var FStream : TFileStream;
　　FName 　: String;
begin
　FName := ChangeFileExt(Application.ExeName,'.dat');
　FStream := TFileStream.Create(FName,fmOpenRead);
　try
　　FStream.ReadComponent(TreeView1);
　finally
　　FStream.Free;
　end;
end;

//********************************************************
//保存
procedure TForm1.FormDestroy(Sender: TObject);
var FStream : TFileStream;
　　FName 　: String;
begin
　FName := ChangeFileExt(Application.ExeName,'.dat');
　FStream := TFileStream.Create(FName,fmCreate);
　try
　　FStream.WriteComponent(TreeView1);
　finally
　　FStream.Free;
　end;
end;

//********************************************************
//ノードの追加
procedure TForm1.Button1Click(Sender: TObject);
var Node : TTreeNode;
begin
　Node := TreeView1.Items.Add(TreeView1.Selected,'追加');
　Node.ImageIndex　　:= 0;
end;

お礼

回答ありがとうございます。

なにぶん初心者なもので、どうやらようやっと
スクリプトの書き方になれてきたかな～という程度でして、
ヘルプにもまだまだ慣れずにいます。
自分が何がしたいのか、そのためにはどこを見ればよいか、
というのがもう少しわかってくるといいのですが。
何かコツなどあるのでしょうか？　やはり慣れですかね・・・。

忙しくてなかなか手をつけられずにいたのですが、今日、明日あたりに
さっそく試させていただきます。