procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    for i :=0  to listview1.Items.Count   -1 do
    begin
       if  ListView1.Items[i].Selected then
           memo1.lines.add(ListView1.Items[i].Caption );
    end;
end;

    void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
        for (i=0;i<=ListView1->Items->Count-1 ;i++)
        {
            if(ListView1->Items->Item[i]->Selected){
            Memo1->Lines->Add(ListView1->Items->Item[i]->Caption);
            }
        }
}

引言: 謝謝你的回覆 但還有一個小問題，就是當按下按鈕時，原本在 ListView 多選的項目都變成沒選取，以至於接下來的判斷是根本不會成立，請問還有什麼地方要注意的嗎？