как объединить массив?

[SuperPups]

Помогите пожалуйста решить задачку!
Есть несколько типов тайлов. Получаем несколько списков с координатами каждого тайла.

Code: Select all

b1 := GetStaticTilesArray(myX-SqFF, myY-SqFF, myX+SqFF, myY+SqFF, WorldNum, 6039, a1);
b2 := GetStaticTilesArray(myX-SqFF, myY-SqFF, myX+SqFF, myY+SqFF, WorldNum, 6040, a2);
b3 := GetStaticTilesArray(myX-SqFF, myY-SqFF, myX+SqFF, myY+SqFF, WorldNum, 6041, a3);

Как объединить массив "а" в один список и посортировать его?
Мучаюсь-мучаюсь и пока ничего не получилось...

[shinma]

Code: Select all

for i:=0 to 3 do
    begin
     rs:=GetStaticTilesArray(RegArr[j].minX,RegArr[j].minY,RegArr[j].maxX,RegArr[j].maxY,1,TreeTile[i],tfta);
     if rs>0 then
      for k:=0 to rs-1 do temp[arr_sum+k]:=tfta[k];
     arr_sum:=arr_sum+rs;
    end;