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

[nasr]

سلام

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

ممنون

[JavanSoft]

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

[nasr]

سلام

array

ممنون

[علی کشاورز]

باید از 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 استفاده کنید.