如何将一个Edit中的内容赋值给一个字符数组plays,再把数组中的内容在MEMO1中显示出来?

Question

如题

Answer 1

var s : array [0..50] of char;
    i : integer;
begin
  for i :=0 to length(edit1.Text) do
      s[i] :=edit1.text[i+1];
  memo1.Lines.Add(s);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Plays:array[0..10] of Char;
begin
   Memo1.Clear;
   StrCat(@Plays,PChar(Edit1.Text));
   Memo1.Lines.Add(StrPas(@Plays));
end;

Answer 3

string本身不就是一个数组吗
干吗还要赋值给字符数组?

Answer 4

这样子写不行啊:
var s : array [0..50] of char;
    i : integer;
begin
  for i :=0 to length(edit1.Text) do
      s[i] :=edit1.text[i+1];
  memo1.Lines.Add(s);
end;
这样是把EDIT中的内容分成一个一个的字符赋给MEMO,我想要的是把第一次输入到EDIT中的内容赋给数组PLAYS[1],第二次输入到EDIT中的内容赋给PLAYS[2],依次类推...

Answer 5

faint,不是很明白你这样做的目的是什么?