急啊：谁写一段代码给我，把memo中的词提取出来，放到另一个memo中

Question

你不防用以下指令试一试：
memo2.Lines:=Memo1.Lines;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo1.Text := StringReplace(Memo2.Text, #32, #13#10, [rfReplaceAll]);
  with Memo1.Lines do
    for I := Count - 1 to 0 do
      if IndexOf(Strings[I]) <> I then
        Delete(I);
end;

Answer 2

先取出memo1中的文字：
  var s1:string;
    s1:=Memo1.Text;然后把s1作为一个新行加到memo2后面：
  Memo2.Lines.add(s1+#13#10)OK!
(好久没动Object Pascal了，可能代码会有误，不过大体思路是这样的)

Answer 3

看来真是想偷懒
在MEMO中加入串是谁都会的.
至于那个把词取出来的算法,自己想法.
这么的问题也要别人帮你完成?

Answer 4

我发现了用copy这个函数就可以了
谢谢大家帮忙