Delphi CXTreeList 自动添加列与行？

姜姜大人 2012-05-18 02:25:58

自动添加A~Z列时很奇怪，A~z都往后挪了一格？从TEXT文本导入数据时，少了一条记录？记录原来有三条的
ID:1
Name:张三
Sex:男
少了一条 Sex:男

以下是我的代码，TreeList是两个不现的TreeList，分别是TreeList,TreeListShow,请大家帮帮忙哈，不胜感激，奉上我的全部分了！
procedure TForm1.FormCreate(Sender: TObject);
var
Root: TcxTreeListNode;
sData,saveTxt :TStringList;
str,str2,Path,MyData :String;
begin
// 保存加载进来的全部内容
sData := TStringList.Create;
Path := ExtractFilePath(Application.ExeName);
sData.LoadFromFile(Path +'Result.txt');
// 保存截取的文本
saveTxt := TStringList.Create;
saveTxt.Delimiter := ':';

for i := 0 to sData.Count -1 do
begin
Str := sData[i]; //STR保存读取进来的一条记录
saveTxt.DelimitedText := Str;
Root := TreeList.Add;
for j:=0 to savetxt.Count-1 do
begin
Root.Values[j] := savetxt[j];
end;

end;
SData.Free;
saveTxt.Free;
Root.Free;
//自动添加A~Z列
for m := 0 to 25 do
begin
TreeListShow.CreateColumn(TreeListShow.Bands[0]);
TreeListShow.Columns[M].Caption.Text := MyData[M];
TreeListShow.Columns[M].Caption.AlignHorz := taCenter;
TreeListShow.Columns[M].Width := 50;
end;
end;

...全文