我想知道如何比較列表框之間的項目。在我的主窗體上有兩個列表框。我想用第一個到第二個項目添加一個點擊事件,但使用它時,同一個項目會在第二個列表框中相乘。任何想法解決「文件已存在」?德爾福項目比較2個列表框
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := ListBox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
很難猜出你在問什麼,但是如果你想將你在第一個列表框中選擇的項目添加到第二個列表框,只有當那個項目不在那裏時,試着使用'.. .if ListBox1.Selected [i] then if ListBox2.Items.IndexOf(ListBox1.Items [i])= -1 then ListBox2.Items.Add(ListBox1.Items [i]);'。 – TLama
我做了一個關於這個問題的簡短視頻http://youtu.be/m7uxqFQDSSI,其中我們創建了一個簡單的Delphi應用程序來演示問題以及接受的答案是如何工作的。 – Alister