아래의 코드를 보시면 알겠지만 버튼 하나로 두 리스트 박스로 파일이름을 보내는 것인데 두 박스 사이에 중복을 없게 할려면 어떻게 해야 되죠 3일 밤낮을 해는데 에러만 나네요. 제발 가르쳐 주십시오 고수님들....급합니다...

감사합니다...



procedure TF_Adding_rule.BitBtn1Click(Sender: TObject);

begin

sl := TStringList.Create ;

if RadioButton1.Checked = True then

begin

with sl do

begin

Sorted := True;

Duplicates := dupIgnore;

for i := 0 to FileListBox1.Items.Count - 1 do

if FileListBox1.Selected[i] = True then

sl.Add(FileListBox1.Items.Strings[I]);

end;

for i := 0 to FileListBox1.Items.Count-1 do

begin

if FileListBox1.Selected[i] = True then

F_Advanced_rule.ListBox2.Items.Add(FileListBox1.Items.Strings[I]);

F_Advanced_rule.ListBox2.Items.Assign(sl);

end;

end;

if RadioButton2.Checked = true then begin

with sl do

begin

Sorted := True;

Duplicates := dupIgnore;

for i := 0 to FileListBox1.Items.Count - 1 do

if FileListBox1.Selected[i] = True then

sl.Add(FileListBox1.Items.Strings[I]);

end;

for i := 0 to FileListBox1.Items.Count-1 do

begin

if FileListBox1.Selected[i] = True then

F_Advanced_rule.ListBox3.Items.Add(FileListBox1.Items.Strings[I]);

F_Advanced_rule.ListBox2.Items.Assign(sl);

end;

end;

end;