View Full Version : حذف عبارت از داخل آرایه
nasr
چهارشنبه 19 مرداد 1384, 09:37 صبح
سلام
یه آرایه 500 تایی دارم می خوام یکی از آیتمهای اون را حذف کنم
ممنون
JavanSoft
چهارشنبه 19 مرداد 1384, 14:15 عصر
آرایه ؟ منظورتان Array است یا نوعهای String آن مثل StringList?
nasr
چهارشنبه 19 مرداد 1384, 16:01 عصر
سلام
array
ممنون
vcldeveloper
پنج شنبه 20 مرداد 1384, 07:12 صبح
باید از 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 استفاده کنید.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.