记账软件版1楼: 我用ListView 与剪切板配合，下面我说个例子，更能说明我的问题
我想得到是这样一个效果
剪切板 要 复制的内容：
英文字段名 中文字段名 字段类型
ID 唯一标识 Varchar(40)

QCJE 期初金额 Varchar(10)
QMJE 期末金额 Varchar(10)
FSJE 发生金额 Varchar(10)

那么复制到Listview（vsReport）中，也要是这种格式，选中＇＇ID＇＇,那么后面的一行都被选种了，请问应该怎么加SubItems先谢谢了！所有分，全部奉上。顶着有分！

2楼: 现在有点忙,帮你顶一下吧! 如速达

3楼: 顶

4楼: 学习

5楼: 为什么要用listview,建议你用dbgrid不就行了吗

6楼: 顶 并学习

记账软件版7楼: if ( Shift = [ssCtrl] ) and ((Key = Ord(＇＇v＇＇)) or (key = ord(＇＇V＇＇)) ) then
begin
//得到剪切板中的数据
amemo := Tmemo.Create(self);
amemo.Visible := false;
amemo.ParentWindow := self.Handle;
amemo.PasteFromClipboard;
amemo.Width := 800;
for i := 0 to amemo.Lines.Count - 1 do //循环amemo中的数据
begin
temp1 := Trim(amemo.Lines.Strings[i]); //去掉空格
temp :=＇＇＇＇;
flag := false; //加标记
for j := 1 to Length(temp1) do
begin
if flag = false then
begin
ListItem := ListView1.Items.Add ;
flag := true;
ListItem.Caption := IntToStr(i+1); //加序号
end;
if Char(temp1[j]) <> #9 then
temp := temp + temp1[j]
else
begin
ListItem.SubItems.Add(temp);
temp := ＇＇＇＇;
end;
end;
if temp <> ＇＇＇＇ then
begin
ListItem.SubItems.Add(temp);
temp := ＇＇＇＇;
end;
end;
amemo.Free;
end;