حذف عبارت از داخل آرایه

[nasr]

سلام

یه آرایه 500 تایی دارم می خوام یکی از آیتمهای اون را حذف کنم

ممنون

[JavanSoft]

آرایه ؟ منظورتان Array است یا نوعهای String آن مثل StringList?

[nasr]

سلام

array

ممنون

[vcldeveloper]

باید از Dynamic Array استفاده کنی. می تونی با استفاده از SetLength طول اون رو کم یا زیاد کنی. برای منظور شما:

var

  a : array of integer;

procedure DeleteItem(Index : integer);

var

i : integer;

begin

  for i := Index to High(a)-1 do

	a[i] := a[i+1];

  SetLength(a,Length(a)-1);

end;

البته حذف/اضافه گزینه های یک آرایه چندان کار بهینه ایی نیست و شما بهتره که از یک لیست پیوندی یا TList بجای Array استفاده کنید.