把一个字符串复制到剪贴板？

[cysnowboy]

str: string;

str:='Registration form: ------';

//请问如何把该字符串的内容直接复制到剪贴板中，不要通过Memo1.CopyToClipboard；

[TechnoFantasy]

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str:='Registration form: ------';
Clipboard.SetTextBuf(PChar(str));
end;

引用Clipbrd

[王集鹄]

uses
Clipbrd;

procedure TForm1.FormCreate(Sender: TObject);
begin
Clipboard.AsText := '你的字符串';
end;

[tangyong_delphi]

要通过Memo1.CopyToClipboard

[cysnowboy]

请问SetTextBuf和AsText有什么区别呢？答完马上给分！

[王集鹄]

没有多大区别
AsText是属性
SetTextBuf是方法

当出现Clipboard.AsText := '你的字符串';
时最终还是会调用SetTextBuf
但我建议你使用AsText
你还可以使用如下语句
Edit1.Text := Clipboard.AsText;

[TechnoFantasy]

to : zswang(伴水)(需要充充电)
实际上最终调用的是SetBuffer，你可以看一下源码：

procedure TClipboard.SetTextBuf(Buffer: PChar);
begin
SetBuffer(CF_TEXT, Buffer^, StrLen(Buffer) + 1);
end;

property AsText: string read GetAsText write SetAsText;

procedure TClipboard.SetAsText(const Value: string);
begin
SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1);
end;

上面你认为那个安全一些呢？

[johnmack]

还是AsText比较好！！

[cysnowboy]

谢谢两位高手的指点！

[cysnowboy]

不过究竟是那个安全呢？

[王集鹄]

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻萝卜白菜个有所爱！嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻