請教各位大大:
以下程式，會在
if Contacts.items[k].hobby ='FromAD' then
或是
Contacts.items.remove(k)
發生錯誤，錯誤，並不是多筆刪除才會，而是刪到700多以下就會開始發生，請教各位，是否有什麼辦法可以解決
錯誤訊息為 "陣列索引超出界限"

[code delphi]
USES COMOBJ;
Var
K:INTEGER;
BEGIN
OutlookApp := CreateOleObject('Outlook.Application');
MAPI:= OutlookApp.GetNamespace('MAPI');
Contacts:= Mapi.Folders('NEW CO').Folders('連絡人');
//=====================================================
edit1.text:='資料刪除中';
//==================把我們建的資料刪除==================
if contacts.items.count=0 then //判斷是否為第一筆
begin
edit1.text:='空白資料庫';
end else
begin
for k := 1 to contacts.items.count do
begin
//=======================================================
if Contacts.items[k].hobby ='FromAD' then //
begin //
//把資料刪掉 //
Contacts.items.remove(k) //
end; //裏面的IF //
//======================================================
end; //for //
end; //外面的if
edit1.text:='資料刪除完畢';
[/code]

------
環境 DELPHI 7
Delphi 新手，請多指教

是不是因為那個索引已經不存在的關係

改成

for k :=contacts.items.count downto 1 do

從後面判斷回來的方式來試試看。

編輯記錄

因為你刪掉item 後，item 的 count 已經減少了。但for 迴圈還是用原來的數字在跑迴圈，到最後一定會超過陣列的索引值的。
試著改用 while 迴圈來看看
[code cpp]
k:=1;
while k <= to contacts.items.count do
begin
if Contacts.items[k].hobby ='FromAD' then
Contacts.items.remove(k)
else
k:=k 1;
end;
[/code]
我沒實際測試過，大致上是這樣，你自己再試看看


===================引 用 yish35 文 章===================
請教各位大大:
以下程式，會在
if Contacts.items[k].hobby ='FromAD' then
或是
Contacts.items.remove(k)
發生錯誤，錯誤，並不是多筆刪除才會，而是刪到700多以下就會開始發生，請教各位，是否有什麼辦法可以解決
錯誤訊息為 "陣列索引超出界限"

[code delphi]
USES COMOBJ;
Var
K:INTEGER;
BEGIN
OutlookApp := CreateOleObject('Outlook.Application');
MAPI:= OutlookApp.GetNamespace('MAPI');
Contacts:= Mapi.Folders('NEW CO').Folders('連絡人');
//=====================================================
edit1.text:='資料刪除中';
//==================把我們建的資料刪除==================
if contacts.items.count=0 then //判斷是否為第一筆
begin
edit1.text:='空白資料庫';
end else
begin
for k := 1 to contacts.items.count do
begin
//=======================================================
if Contacts.items[k].hobby ='FromAD' then //
begin //
//把資料刪掉 //
Contacts.items.remove(k) //
end; //裏面的IF //
//======================================================
end; //for //
end; //外面的if
edit1.text:='資料刪除完畢';
[/code]

兩位的方式都可以，不過為什麼for迴圈倒者作就可以
真想不透

------
環境 DELPHI 7
Delphi 新手，請多指教

因為從前面往後面做，若中間有被刪除，後面的item index值就會被改變。

但由後面往前面做，即使中間有被刪除，前面item 的index 也不會變動。

這真的是一種好方法，長知識....長知識....





===================引 用 yish35 文 章===================
兩位的方式都可以，不過為什麼for迴圈倒者作就可以
真想不透

原因可能就如carstyc大大所說的一樣
"刪掉item 後，item 的 count 已經減少了..."
所以跑迴圈的時候就會有這樣的錯誤了
但假如倒回來跑就不會出現這樣的錯誤了吧~

 感謝兩位的協助

------
環境 DELPHI 7
Delphi 新手，請多指教