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

[sauron99]

Народ помогите слить два массива в один, пробывал по такому коду, но пишет ошибку, метод слияния сдёр с паскаля. Помогите разобратся в чом проблем

procedure TForm1.Button1Click(Sender: TObject);
const
n = 20 ;
var
i, j, k: Integer;
a: array [1..n] of integer;
b: array [1..n] of integer;
c: array [1..n] of integer;
begin
for i:=1 to n do
a[i]:=StrToInt(Memo1.Lines[i-1]);
for j:=1 to n do
b[j]:=StrToInt(Memo2.Lines[i-1]);
  i := 0;
  j := 0;
  k := 0;
  while ((i < Length(A)) and (j < Length(B))) do
  begin
    if (A[i] > B[j]) then
    begin
      C[k] := B[j];
      Inc(j);
    end else
    begin
      C[k] := A[i];
      Inc(i);
    end;
    Inc(k);
  end;
  while (i < Length(A)) do
  begin
    C[k] := A[i];
    Inc(k);
    Inc(i);
  end;
  while (j < Length(B)) do
  begin
    C[k] := B[j];
    Inc(k);
    Inc(j);
    for k:=1 to n do
    Memo3.Lines.Add(inttostr (C[k]));
  end;

[Sazary]

Что за метод-то? Словами описать можете?

a: array [1..n] of integer;
b: array [1..n] of integer;
c: array [1..n] of integer;

C - результирующий массив. Так почему его размерность равна размерности каждого из исходных? Размерность должна быть 2*N.

for j:=1 to n do
b[j]:=StrToInt(Memo2.Lines[i-1]);

При чем тут i, если цикл по j?

Компилятор выдает достаточно ошибок, которые вы могли бы исправить и сами.

Если нужно просто пристыковать второй массив к первому (и записать все в третий массив), то так:

procedure TForm1.Button1Click(Sender: TObject);
const
n = 20 ;
var
i, j, k: Integer;
realM,realN : integer;
a: array [1..n] of integer;
b: array [1..n] of integer;
c: array [1..n+n] of integer;
begin
realM := Memo1.Lines.Count;
realN := Memo2.Lines.Count;

for i:=1 to realM do
 a[i] := StrToInt(Memo1.Lines[i-1]);
for i:=1 to realN do
 b[i] := StrToInt(Memo2.Lines[i-1]);

for i:=1 to realM+realN do
 begin
 if i<=realM then
  c[i] := a[i]
 else c[i] := b[i-realM];
 end;

  for k:=1 to realM+realN do
    Memo3.Lines.Add(inttostr (C[k]));

end;

[sauron99]

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

Если нужно просто пристыковать второй массив к первому (и записать все в третий массив), то так:

procedure TForm1.Button1Click(Sender: TObject);
const
n = 20 ;
var
i, j, k: Integer;
realM,realN : integer;
a: array [1..n] of integer;
b: array [1..n] of integer;
c: array [1..n+n] of integer;
begin
realM := Memo1.Lines.Count;
realN := Memo2.Lines.Count;

for i:=1 to realM do
 a[i] := StrToInt(Memo1.Lines[i-1]);
for i:=1 to realN do
 b[i] := StrToInt(Memo2.Lines[i-1]);

for i:=1 to realM+realN do
 begin
 if i<=realM then
  c[i] := a[i]
 else c[i] := b[i-realM];
 end;

  for k:=1 to realM+realN do
    Memo3.Lines.Add(inttostr (C[k]));

end;

Выдаёт ошибку на этой строке, а чо за ошибка не показыват
a[i] := StrToInt(Memo1.Lines[i-1]);

[Sazary]

Выдаёт ошибку на этой строке, а чо за ошибка не показыват

И откуда вы тогда знаете, что это ошибка?
Если это действительно ошибка, то компилятор ее покажет.
У меня все работает.

[sauron99]

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

И откуда вы тогда знаете, что это ошибка?
Если это действительно ошибка, то компилятор ее покажет.
У меня все работает.

При запуске на слияние массивов выскакивает ошибка, и потом выделяется это строка синим цветом, а ошибку чот не кажет, вот ток недавно казал ошибки

[sauron99]

Я попробывал сделать так:

const
n = 20 ;
var
i, k : Integer;
a: array [1..n] of integer;
b: array [1..n] of integer;
c: array [1..n+n] of integer;
begin

for i:=1 to n do
 a[i] := StrToInt(Memo1.Lines[i-1]);
for i:=1 to n do
 b[i] := StrToInt(Memo2.Lines[i-1]);

for i:=1 to n+n do
 begin
 if i<=n then
  c[i] := a[i]
 else c[i] := b[i-n];
 end;

  for k:=1 to n+n do
    Memo3.Lines.Add(inttostr (C[k]));

end;

Но массив выводит вообще хз какой, таких элементов даже в тех 2-х массивах нет

[Sazary]

При запуске на слияние массивов выскакивает ошибка

Так что выскакивает? Приведите текст того, что выскочило!
Я не телепат. Сказал же, что у меня никаких ошибок нет.
Если вам так трудно прочитать и переписать сюда текст ошибки, то сделайте скриншот.

[sauron99]

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

Так что выскакивает? Приведите текст того, что выскочило!
Я не телепат. Сказал же, что у меня никаких ошибок нет.
Если вам так трудно прочитать и переписать сюда текст ошибки, то сделайте скриншот.

Выделяет вот эту строку синим цветом:

 a[i] := StrToInt(Memo1.Lines[i-1]);

и написано ещё это:

[Hint] Unit1.pas(140): Variable 'j' is declared but never used in 'TForm1.Button1Click'

Больше ничего не кажет

[Sazary]

и написано ещё это:
Код:

[Hint] Unit1.pas(140): Variable 'j' is declared but never used in 'TForm1.Button1Click'

Просто удалите объявление переменной j - она не используется.

По поводу основной ошибки: попробуйте заново создать проект. На форму киньте только 3 мемо и кнопку.
Может, вы что-нибудь изменили в коде?

[sauron99]

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

Просто удалите объявление переменной j - она не используется.

По поводу основной ошибки: попробуйте заново создать проект. На форму киньте только 3 мемо и кнопку.
Может, вы что-нибудь изменили в коде?

В коде ничего не менял,
На форме 3 мемо, 2 кнопки на созддание массивов, и одна на запуск,
Массивы вводятся рандомно в таком виде:
1
2
3
4
5
...
Даж незнай в чом проблема может быть