Question

DELPHI 复制 黏贴 循环

我想在 MOME 来实现
随意在 MOME 中输入字符
用一个按钮来实现复制特定行里的所有内容,然后能用Ctrl+C粘贴到任何地方

大概意思

ASDASD
QWEQWE
ZXCZXC
按一次
复制第1行
粘贴出来显示 sdasd 按两次复制第2行
粘贴出来显示 qweqwe按三次复制第3行
粘贴出来显示 zxczxc 按四次复制第一行
粘贴出来显示 asdasd 循环。。。 。。。

Answer 1

下面这程序能把memo1里面的拷到memo2里面，点击一次复制一行，2次就复2行，你修改成你要的吧...

procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
m:string;
begin
memo2.Clear;
i := i+1;
Button1.Caption := inttostr(i);
for n:=0 to i do
begin
m := memo1.Lines[n-1];
memo2.Lines.Insert(n-1,m);
end;
memo2.SelectAll;
memo2.CopyToClipboard;
end;

Answer 2

粘贴出来显示 asdasd 循环,有点不理解

Answer 3

不理解，能说的详细点吗