無聊逛網看到大陸人寫的網誌說到 Delphi2009 中 TTreeview 的 SaveToFile 不支持中文
http://blog.sina.com.cn/s/blog_571df3c40100bvra.html#cmt_1012597
我不太相信, 所以就把原始碼翻出來查原因
使用 SaveToFile 時, 存檔的編碼本來就是 Unicode, 但是就是少寫 BOM 而已
所以若 TTreeview Items 內含中文, 可以用下面的方法來存檔
方法很簡單, 只是先寫 BOM, 接著將 TTreeview 使用 SavetoStream 到 FileStream 中

[code delphi]
var
FileStream :TFileStream;
begin
FileStream :=TFileStream.Create('F:\3.txt', fmCreate);
FileStream.WriteBuffer(TEncoding.Unicode.GetPreamble[0], 2);
TreeView1.SaveToStream(FileStream);
FileStream.Free;
end;
[/code]

讀回內容只要用 LoadFromFile, 也就是原來的方式即可

[code delphi]
TreeView1.Items.Clear;
TreeView1.LoadFromFile('F:\3.txt');
[/code]

編輯記錄

感謝分享 ^_^