各位大大，請問一下如果我有兩個listbox，他的內容是對應的，也就是說，listbox1裡面有十筆資料，那listbox2裡面也就會有十筆資料，但兩個listbox裡所放的資料是不一樣的，但是裡面所有資料的itemindex是對應的，也就是說listbox1的第三筆資料和listbox2的第三筆資料是對應的，現在如果我在listbox2裡複選了三筆資料，並且將他deleteselected，要怎樣才能將listbox1同樣itemindex的資料也一起刪除呢?謝謝

引言: 各位大大，請問一下如果我有兩個listbox，他的內容是對應的，也就是說，listbox1裡面有十筆資料，那listbox2裡面也就會有十筆資料，但兩個listbox裡所放的資料是不一樣的，但是裡面所有資料的itemindex是對應的，也就是說listbox1的第三筆資料和listbox2的第三筆資料是對應的，現在如果我在listbox2裡複選了三筆資料，並且將他deleteselected，要怎樣才能將listbox1同樣itemindex的資料也一起刪除呢?謝謝 < face="Verdana, Arial, Helvetica"> lcc1299：既然listbox2可以刪除相對應listbox1也跟著刪除不就行了！ 不過建議你刪除由後往前刪除，如你要刪除1,3,5的資料，執行時請按 5,3,1方式刪除。 請參考！ Andy Chang

lcc1299 您好：    假設兩個ListBox均可MultiSelected，底下有一個procedure可完成任選互刪的動作，請參考！    

procedure deleteBoth(lstFrom, lstTo : TListBox);
var
   k : integer;
begin
  for k:=0 to lstFrom.Items.Count-1 do
     begin
       lstTo.Selected[k] := lstFrom.Selected[k];
     end;
  lstFrom.DeleteSelected;
  lstTo.DeleteSelected;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  //deleteBoth(ListBox1, ListBox2);
  deleteBoth(ListBox2, ListBox1);
end;

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####