我先做了一個按鈕 將1234到9876的數字顯現出來
讓這些數字出現在ListBox1
現在想做第二個按鈕 將1234到9876之間的數字
有重複的都刪除掉 比如說 1242 有兩個相同的字就將他刪除
然後在讓篩選完後的結果出現在ListBox2
這個我真的困擾了很久 再麻煩各位大大給予幫助
謝謝!!

你是認真的嗎? (冒汗)

[code delphi]
procedure TfrmMain.Button3Click(Sender: TObject);
var i:integer;
begin
ListBox2.Clear;
for i := 0 to ListBox1.Items.Count-1 do
begin
if ListBox2.Items.IndexOf(ListBox1.Items.Strings[i])=-1 then
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
end;
[/code]

delphi 大部分 List 形的物件操作方法都一樣(memo 的line ,TStringList ..等等)

------
額有朝天骨,眼中有靈光

大大真是感謝你!!
可是還是會有重複的數字耶..


其實我學delphi的時間很短
如果大大不介意
希望可以用私信像大大請教一些問題

再次感謝你的解答!

編輯記錄

http://delphi.ktop.com.tw/board.php?cid=30&fid=75&tid=87462

其實是誤會,解錯問題了, 這問題跟這個是同樣的問題, 是猜數字.....

------
額有朝天骨,眼中有靈光

編輯記錄

[code delphi]
var i,j:integer;
s:String;
IntSet : set of 0..9;
isNeedDelete:boolean;
begin
ListBox2.Clear;
for i := 0 to ListBox1.Items.Count-1 do
begin
IntSet := [0,1,2, 3,4,5 ,6,7,8,9];
s := ListBox1.Items.Strings[i];
isNeedDelete := false;
for j := 0 to Length(s)-1 do
begin
if (StrToInt(s[j 1]) in IntSet) then
IntSet := IntSet - [StrToInt(s[j 1])]
else
isNeedDelete := true;
end;
if not isNeedDelete then
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
end;
[/code]
信箱我寄不過去...
位置有錯誤嗎?


已透過私信解答完畢 謝謝!!

編輯記錄