Question

delphi 复制 粘贴

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

大概意思

ASDASD
QWEQWE
ZXCZXC

复制第3行
粘贴出来显示 ZXCZXC
我要做循环处理,设置一个按钮
按1次 复制第一条
按2次 复制第二条
按3次 复制第三条
按4次 因为没有第四条所以返回复制第一条,之后循环复制

Answer 1

clipboard.AsText := 'ZXCZXC ';

执行上述代码后，Ctrl+v就能粘贴ZXCZXC 了

所以，你只要把特定行的内容赋值给clipboard.AsText就行

如你举的例子
Memo1.lines里有

ASDASD
QWEQWE
ZXCZXC

clipboard.AsText := Memo1.lines[2]; //这样就可以了。

忘说了，记得use Clipbrd

Answer 2

楼上说的很对呀
一般的Array都是0开始的

Answer 3

var str:string;你直接给memo设个条件咯，str:=Memo.Lines[x];clipboard.AsText := str;