自动添加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;
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;
解决方案 »
- 千分散尽求解析,delphi SOCKET通信发送带包头的XML文件,曾问100人无果
- 谁有自动回帖机
- 女友在淘宝开了间服饰网店,特来散分庆祝!
- 能否在Serversocket接收数据以前,就对他进行检测,有数据就接收,没有就等待
- 关于台湾我有话要说
- PageControl1.TabPosition:=tpBottom ;为什么不行
- 我的DELPHI7安装后没有REPORT栏,是不是我买的这个版本有问题?
- 江湖救急!!关于将几百兆的文本文件导入SQLServer的问题!
- 找点delphi写com+的中文资料,英文看起来好难受
- 轻松得到50分!!
- 如何将Access数据表中转化为OLE对象的图片读取并显示出来?
- 转让delphi+sqlserver销售ERP
建议你定义一个 数据结构
直接读取数据再读取即可