关于Memo的问题，有没有人求我。UP也有分

Question

如何把Memo中的内容赋给一个字符型数组。我很菜，最好有例子。

Answer 1

for i:=0 to memo1.lines.count-1 do
a[i]:=memo1.lines[i];

Answer 2

你首先设置一个数组，然后
str :string;
str :=Memo1.lines.text;
a[i] :=str[i];就可以了！~~~

Answer 3

只能如此麻烦吗，其实不用吧，我想应该用Move就可以搞定。这样写
Move(a, Memo1.Lines.text, Length(Memo1.Lines.Text)); 
这里的a是你的字符数组，必须保证a可以容下Memo1.Lines.Text中所有的字符，不然会导致数组越界

Answer 4

前面的方法太耗时间了，后面的Move我又没试成功。我该怎么办？

Answer 5

偶有一个办法 看行不?ch: array [0..100] of char
str := memo1.Text;
StrLCopy(ch, PChar(memo1.Text), sizeof(ch));保证好用！呵呵

Answer 6

偶有一个办法 看行不?ch: array [0..100] of char;
StrLCopy(ch, PChar(memo1.Text), sizeof(ch));保证好用！呵呵

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  a :array [0..4] of char;
  s :PChar;
begin
  s :=PChar(Memo1.Lines.Text);
  Move(s^, a[0], 5);
  ShowMessage(a[0]);
end;

Answer 8

BlueDreaming(蓝色海岸)你的方法不行，会报错

Answer 9

两个Memo,一个button.你试看看!
procedure TForm1.Button1Click(Sender: TObject);
var ch: array [0..100] of char;
begin
    StrLCopy(ch, PChar(memo1.Text), sizeof(ch));
    memo2.Text := ch;
end;