我发誓没人会做这道题,我问过很多大侠都不会!!!

Question

把LABEL上的指定内容复制到剪切板上怎么做?
Label3.Caption:='计算结果应为'+ inttostr(ceil(ceil(((StrToFloat(Edit1.Text)*10))/123456)*123456))+'MB'我想说的就是怎样把经过公式{"ceil(ceil(((StrToFloat(Edit1.Text)*10))/123456)*123456)"}计算后的数值通过一个按钮点击后复制到剪切板......注意只是一个数值复制到剪切板,或是指定的区域内的数值,请尽可能的详细一点....欢迎各位大虾指教...

Answer 1

可以用个很简单很猥琐的方式实现Label值复制到剪贴板；
按钮按下，复制到剪贴板。借助memo1，设置其不可见
procedure TForm2.Button3Click(Sender: TObject); 
begin
  memo1.Text := Trim(Label1.Caption);
  Memo1.SelectAll;
  memo1.CopyToClipboard;
end;

Answer 2

簡單的做法是轉換成SQL語句送SQL伺服器執行送回結果，復雜點自己解析執行。
ceil有相應的SQL函數的。
送結果到剪接板那是Delphi直接支持的。
真怕你破了誓言要去自裁，那罪可大了。

Answer 3

uses ClipBrd;procedure TForm1.Button1Click(Sender: TObject);
begin
  ClipBoard.AsText := Copy(Label1.Caption, 13, Length(Label1.Caption)-14);
  Showmessage(ClipBoard.AsText);
end;

Answer 4

这个问题我遇到过，解决办法是用JavaScript来执行这些四则运算，在运行期间就不要用PASCAL语法来算了。
这只是一个变通的处理方式，楼主可以借鉴一下。