cartItems : Array of TCartItem;

有上述一個陣列, 那例如我想把 cartItems[2] 抽掉. 除了

for i := index to High(cartItems) do
begin
  cartItems[i-1] := cartItems[index];
end;
SetLength( cartItems, High(cartItems));

有更好的作法嗎?, 謝謝... 剛剛有爬了一會兒文....但沒找到....感覺是很簡單的問題.... 但還是搞不好...@@

可以參考資料結構中的 linked list 或是使用 VCL 中的 TList ^_^

uses system; h := High(cartItems); if index < h then Move(cartItems[index 1], cartItems[index], (h-index)*SizeOf(Pointer)); SetLength(cartItems, h); _________________________ Programming is a passion 發表人 - yyu10 於 2005/02/27 18:49:39