procedure TForm1.FormCreate(Sender: TObject);
var
List: TStringList;
NewItem: TListItem;
I: Integer;
begin
NewItem := nil; ListView1.Items.Clear;
List := TStringList.Create;
try
//读取文件中的内容到List
List.LoadFromFile (
sysutils.ExtractFilePath (Application.ExeName) + 'Items.txt');
for I := 0 to List.Count - 1 do //遍历List里的每一段字符串
if List [I][1] = #9 then //这里不是很明白#9是什么意思还有
//List[I][1]是指的当前行的第1个子还
//是第2个子
NewItem.SubItems.Add (Trim(List [I])) //将这行字符串添加到
//NewItem里
else if List [I][1] = '@' then
NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
else
begin
// 将NewItem添加到ListView里
NewItem := ListView1.Items.Add;
NewItem.Caption := List [I];
end;//for
finally
List.Free;
end;
end;
var
List: TStringList;
NewItem: TListItem;
I: Integer;
begin
NewItem := nil; ListView1.Items.Clear;
List := TStringList.Create;
try
//读取文件中的内容到List
List.LoadFromFile (
sysutils.ExtractFilePath (Application.ExeName) + 'Items.txt');
for I := 0 to List.Count - 1 do //遍历List里的每一段字符串
if List [I][1] = #9 then //这里不是很明白#9是什么意思还有
//List[I][1]是指的当前行的第1个子还
//是第2个子
NewItem.SubItems.Add (Trim(List [I])) //将这行字符串添加到
//NewItem里
else if List [I][1] = '@' then
NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
else
begin
// 将NewItem添加到ListView里
NewItem := ListView1.Items.Add;
NewItem.Caption := List [I];
end;//for
finally
List.Free;
end;
end;
解决方案 »
- rzgridS的问题??
- DBGridEh如何根据不同数值设置单元格不同颜色?
- 数据导出Excel时的单元格设置为日期问题----在线等!
- 怎么去一文件夹下所有文件夹和子文件夹的名称?急急急---------------------------------
- 求!求!求!求助一条关于SQL语句中分组的问题
- 用winsock实现 扫描IP段
- 关于打印的问题!
- 怎么加亮(选中)dbgird控件的任意一行?
- 谁能提供一些常用的图标?
- enlightenment(阿明) 求助
- 打印机状态问题
- 我有两个表table1,table2,关系通过id栏连接,现用dbgrid1显示table1的所有内容,当我在dbgrid1中点击某个记录时,要求在dbgrid2中显示相
List [I][1]是指当前前行的第1个字符吗?List对每一行是按一个字母一个字母的读还是一个字符串一个字符串的读?