var listitem1:tlistitem; str1,str2,str3:string; begin str1:=listview1.selected.caption; str2:=listview1.selected.subitems[0];str3:=listview1.selected.subitems[1];end;
看看帮助subitems是什么类型的,,,然后找成员,,就完成了,items item[]
var Item:TListItem; i:integer; begin for i := 0 to ListView1.Items.Count -1 do begin Item := ListViews.Items[i]; Table1.Append; Table1.FieldByName('姓名').AsString := Item.Caption; Table1.FieldByName('性别').AsInteger := StrToInt(Item.SubItems.Strings[0]); // 0表示女,1表示男 Table1.FieldByName('出生日期').AsDate := StrToDate(Itme.SubItems.Strings[1]); Table1.FieldByName('学历').AsString := Item.SubItems.Strings[2]); Table1.Post; end;
读到ListView; var Item:TListItem; begin Table1.First; while not Table.Eof begin Item := ListView1.Items.Add; Item.Caption := Table1.FieldByName('姓名').AsString; Item.SubItems.Add(Table1.FieldByName('性别').AsString); Item.SubItems.Add(Table1.FieldByName('出生日期').AsString); Item.SubItems.Add(Table1.FieldByName('学历').AsString); Table1.Next; end;
listitem1:tlistitem;
str1,str2,str3:string;
begin
str1:=listview1.selected.caption;
str2:=listview1.selected.subitems[0];str3:=listview1.selected.subitems[1];end;
item[]
i:integer;
begin
for i := 0 to ListView1.Items.Count -1 do
begin
Item := ListViews.Items[i];
Table1.Append;
Table1.FieldByName('姓名').AsString := Item.Caption;
Table1.FieldByName('性别').AsInteger := StrToInt(Item.SubItems.Strings[0]); // 0表示女,1表示男
Table1.FieldByName('出生日期').AsDate := StrToDate(Itme.SubItems.Strings[1]);
Table1.FieldByName('学历').AsString := Item.SubItems.Strings[2]);
Table1.Post;
end;
var Item:TListItem;
begin
Table1.First;
while not Table.Eof
begin
Item := ListView1.Items.Add;
Item.Caption := Table1.FieldByName('姓名').AsString;
Item.SubItems.Add(Table1.FieldByName('性别').AsString);
Item.SubItems.Add(Table1.FieldByName('出生日期').AsString);
Item.SubItems.Add(Table1.FieldByName('学历').AsString);
Table1.Next;
end;