Слияние двух массивов в Delphi

[Sazary]

2 кнопки на созддание массивов

Вернее всего проблема связана именно с генерацией.
Я вводил массивы вручную, одно число в одной строке. Попробуйте и вы.

[sauron99]

Сообщение от Sazary

Вернее всего проблема связана именно с генерацией.
Я вводил массивы вручную, одно число в одной строке. Попробуйте и вы.

заново всё создавал, тажа проблема,
ну я когда код менял немного в создании 3его массива то нормально всё шло, но массив неправельно создавался

[Sazary]

sauron99, повторяю, у меня все работает. Попробуйте вводить числа вручную.

Я не могу сказать, что не так, если не вижу кода.

[sauron99]

Сообщение от Sazary

sauron99, повторяю, у меня все работает. Попробуйте вводить числа вручную.

Я не могу сказать, что не так, если не вижу кода.

Можешь посмореть код?
Вот исходник
http://valinok.ru/Projects.rar

[Sazary]

У вас в коде для кнопок генерации массивов вот это:

for k:=1 to n do
Memo1.Lines.Add(inttostr (a[k]));

находится в цикле, где вы ищете минимальный элемент.
Поэтому в мемо массив пишется много раз.

Вынесите это из цикла и все будет работать.

[sauron99]

Сообщение от Sazary

У вас в коде для кнопок генерации массивов вот это:

for k:=1 to n do
Memo1.Lines.Add(inttostr (a[k]));

находится в цикле, где вы ищете минимальный элемент.
Поэтому в мемо массив пишется много раз.

Вынесите это из цикла и все будет работать.

Спасибо большое за помощь!

[Sёker]

Почему для слияния массивов не использовать функцию move?
Например, почему бы не сделать так? Имеем массивы а и b. Сольём их в с. Тогда, в случае 1d дин.массивов получим длину с
SetLength(c,Length(a)+length(b))
Далее объединяем
Move(a[0],c[0],Length[a]*sizeof(a[0]);
Move(b[0],c[Length[a]],Length[b]*sizeof(a[0]);

Или присоединим b к a
Lena:=Length(a);
SetLength(a,Length(a)+length(b))
Move(b[0],a[Lena],length(b)*sizeof(a[0]);
Или я чего-то не знаю? Есть подводные камни при использовании функции Move??

[Аватар]

Почему для слияния массивов не использовать функцию move

Особенно если в массивах есть строковые данные можешь получить кучу проблем