Printable View
با سلام
من یک روال به شکل زیر نوشتم :
ولی موقع اجرا خطای ناهماهنگی نوع رو میده . میدونم از اینه که تو تابع SetLength فقط تابع دینامیکی قبول میکنه ولی من چطور باید آرایه رو بصورت دینامیکی ارسال کنم ؟کد:procedure ArrayDelete(var arr :array of Integer ; index :Integer);
var i :Integer;
begin
for i:= index to High(arr)-1 do
arr[i]:= arr[i+1];
SetLength(arr, Length(arr)-1);
end;
دوست عزیز.
نوع فراخونی تابع و همچنین تعریف آرایه ای که میخوای توی این Procedure بزاری رو هم بنویس
قاعدتا اگه توی تعریفت تابع از جنس دینامیک باشه نباید مشکلی باشه.
الیته فکر کنم کارایی درستی برات نداره. مگر اینکه آرایت رو در سطح کلی برنامه معرفی کرده باشی.
شما باید اول آرایه رو به عنوان یک Type در برنامه تعریف کنید و بعد اون رو به تابع ارسال کنید ، مثال :
موفق باشید ...کد:uses
...
type
TMyArray = Array of Integer;
...
procedure ArrayDelete(var arr : TMyArray; index :Integer);
var i :Integer;
begin
for i:= index to High(arr)-1 do
arr[i]:= arr[i+1];
SetLength(arr, Length(arr)-1);
end;