Как записать в Richedit Символ из двумерного массива?

Question

[Некит Медведев]

procedure TForm4.Button1Click(Sender: TObject);
 var
c:array of array of char;
s:char;
i,j,p,x: integer;
begin
p:=RichEdit1.Lines.Count;
setlength(c,0,0);
setlength(c,p,100);

  for i := 0 to RichEdit1.Lines.Count - 1 do
    for j := 1 to Length(richedit1.Lines[i]) do
      c[i][j] := RichEdit1.Lines[i][j];

  for i := 0 to RichEdit2.Lines.Count -1 do
    for j := 1 to Length(RichEdit2.Lines[i]) do
    begin
    s:= c[i, j];
    RichEdit2.Lines[i][j]:=s;
    end;
end;

end.

в данный момент использую этот код, он выводит ошибку:
[dcc32 Error] Unit4.pas(46): E2064 Left side cannot be assigned to

Answer 1

[kalapanga]

Кроме того, что Вам уже написали, есть ещё логические нюансы. Очевидно, что перед нажатием кнопки Вы в RichEdit1 ввели какой-то текст. А что у Вас в это время в RichEdit2? А если там вообще строк нет и RichEdit2.Lines.Count равно 0, что должно произойти? Для каких-то случаев может и Ваше решение подойдёт, но не всегда.
И кстати, если Вам нужно полностью заменить содержимое RichEdit2 на содержимое RichEdit1, то нужен всего один оператор: RichEdit2.Lines.Assign(RichEdit1.Lines);