实现拷贝

[mydark]

在Delphi 中如何实现拷贝指定字符串到剪贴板中？不借助edit 和 memo 这些控件

[李_军]

uses
clipboards;
然后自己写代码.实现

[wbgigi]

clipboards后面的多多，看一下就清楚了！

[星之瀚海]

上面的好象错了,

uses clipbrd;
然后自己写代码

[李_军]

对,写错了

uses ClipBrd;
procedure StrToClipbrd(StrValue: string);

var

A: array[0..255] of char;

begin

StrPCopy(A, StrValue);

Clipboard.SetTextBuf(A);

end;

function GetStrFromClipbrd : string;

begin

if Clipboard.HasFormat(CF_TEXT) then

result := Clipboard.AsText

else

begin

ShowMessage('There is no text in the Clipboard!');

result := '';

end;

end;