如何从listview中读书据？

Question

如何从listview中读书据？把数据从listview中按列读到表里？

Answer 1

var
listitem1:tlistitem;
str1,str2,str3:string;
begin
str1:=listview1.selected.caption;
str2:=listview1.selected.subitems[0];str3:=listview1.selected.subitems[1];end;

Answer 2

看看帮助subitems是什么类型的，，，然后找成员，，就完成了，items
item[]

Answer 3

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;

Answer 4

读到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;

Answer 5

读数据见： timelyraining(jack_feng) 写入库见：maoke000(老茂) 1写数据见：maoke000(老茂) 2