Поменять местами строки в memo

[Бублик]

Вот такое задание. Дана матрица A(n,n)(Memo). Поменять местами K и L строки.:

[Alex21]

1. Почему в Общих вопросах Делфи.
2. Что сделали.
3. Что не получилось.

p.s.: без вашего участия проблематично будет.

[mihali4]

Запоминаем К-ую строку во временной переменной.
Копируем L-ую строку в позицию К.
Копируем содержимое временной переменной в строку L.
Все.

[Alex21]

А еще можно сделать без дополнительной переменной:

  for i:=1 to N do
  begin
    A[K,i] := A[L,i] xor A[K,i];
    A[L,i] := A[K,i] xor A[L,i];
    A[K,i] := A[K,i] xor A[L,i];
  end;

[Бублик]

Дан исходник, который перегоняет данные из одного memo в другой и с ним надо что-то сделать , чтобы еще и строки местами менял


procedure TForm1.Button9Click(Sender: TObject); var
a:array [1..10,1..10] of integer;
i,j,k,rez,l:integer;
str,s:string;
begin
str:=Memo1.text;
S:=Memo2.Text;
for i:=1 to strtoint(edit2.text) do
begin
for j:=1 to strtoint(edit2.text) do
begin
k:=pos(' ',str);
a[i,j]:=StrToInt(copy(str,1,k-1));
delete(str,1,k);

end;
delete(str,1,2);
end;
Memo3.Clear;
for i:=1 to strtoint(edit2.text) do
begin
S:='';
for j:=1 to strtoint(edit2.text) do

S:=S+inttostr(a[i,j])+' ';
memo3.Lines.Add(s);


end;
end;

[Alex21]

Почему вы работаете с матрицой как с текстом?
Предположим массив уже имеется, тогда объявляем глобальные переменные:

const
  K=0;  // меняем эту строку
  L=1;  // с этой строкой
  N=9; // размерность матрицы
var
  Form1: TForm1;
  a:array[0..N,0..N]of integer; // массив А
  i,j:integer;

и сама процедура обмена и вывода результата в Мемо2:

procedure TForm1.Button1Click(Sender: TObject);
begin
{обмен местами значений строк K и L}
  for i:=0 to N do
  begin
    A[K,i] := A[L,i] xor A[K,i];
    A[L,i] := A[K,i] xor A[L,i];
    A[K,i] := A[K,i] xor A[L,i];
  end;

  {вывод в Мемо2}
  memo2.Clear;
  memo2.Lines.Add('');
  for i:=0 to N do
  begin
    for j:=0 to N do
    begin
      memo2.Lines[i]:=memo2.Lines[i]+inttostr(a[i,j])+'   ';
    end;
    memo2.Lines.Add('');
  end;
end;