2012-03-02 82 views
2

作为编程类学校项目的一部分,我正在完成Windows 7的Turbo Pascal 7中的一个程序,基本上我们已经给了一个简短的内容,并告诉我们自己去实现并编写程序。用于Windows的Turbo Pascal:将输出复制到剪贴板?

简要状态创建程序,其中用户可以输入信息,选择一个信移位,然后根据该移位(基本上ROT13)每个字母将被“加密”。简单。

我得在Turbo Pascal的Windows 7的终端窗口中运行,它输出产生的加密文本:

writeln('Encrypted message is ', line ,' for a shift of ', shift); 
readln; 

我希望做的是超越这个由前进了一大步延伸进一步并允许用户将输出(var:line)复制到他们的windows剪贴板。我一直在互联网上搜索了两天,还没有找到任何可以帮助我的东西。我现在开始怀疑帕斯卡是否有能力做到这一点?

干杯, 卢克。

+0

@Embarcadero:**发送免费的RAD Studio DVD的那所学校会员**,并确保它是不是没有一个命令行编译器残废版本。 – 2012-03-02 10:18:11

+0

许多学校使用旧版本,因为向学生介绍IDE,随后每个功能和图标的学生需要花费太多时间。旧版本比较简单,不像拖放式设计器那么吸引人。简而言之,它不是缺乏现代工具,但它们的复杂性就是问题所在。当我参加FPC/Lazarus宣传展览会时,教师们迫切需要一个专门用于教育目的的减少版本。 – 2012-03-02 10:38:38

+0

尽管如此,即使没有在课堂上使用,仍然教授pascal的学校是收获新德尔福/拉撒路用户的好地方。它应该在那里得到提升。在学校我们只用了Turbo Pascal,同学们告诉我如何运用同样的知识与Delphi一起构建更酷的东西。我们都使用非法拷贝(booo!),但多年来我们通过我们的雇主购买了许多许可证。如果Borland当时拥有更好的版权保护,那么我现在绝对不会写任何pascal。 – 2012-03-02 11:38:29

回答

3

我现在开始怀疑帕斯卡是否有能力做到这一点?

是的,如果你不使用过时的20岁帕斯卡产品。我不确定它是否可以访问剪贴板(因为Windows剪贴板是32位的API),但不可能,但至少在没有破解的情况下是不可能的。使用免费的Pascal或Delphi并直接访问Windows API以使用剪贴板进行播放(为此搜索MSDN)。

PS: 剪贴板无关帕斯卡做作为一门语言。这只是操作系统的一个概念,它允许程序使用它。

+0

是的 - 我们被告知使用古老的Turbo Pascal 7 for Windows(由Borland Software提供)。让它简单地在我的Windows 7 x64笔记本电脑上工作是一场噩梦。 – ReactingToAngularVues 2012-03-02 07:07:59

+2

即使在64位窗口上,我也很惊讶。 – 2012-03-02 09:59:46

+0

在x64上,您需要特殊的仿真器,例如dos框 – 2012-03-02 10:50:27

2

如果您正在使用Delphi中,你可以使用Clipboard.SetTextBuf值(P Char(somestring)); 这就是我在我的Dos2Clip实用程序中做到的,显然我在2005年免费提供。我已经在下面的链接中提供了它的所有25行代码。 ;)

在Vista和更高版本中,在批处理文件或命令行中有一个“clip”命令。

ex:echo“hello,world!”|夹

看到这里我的书面记录,其中有一个下载链接我Dos2Clip计划(源)。我看到Clip2Dos也在那里。

http://www.clipboardextender.com/general-clipboard-use/command-window-output-to-clipboard-in-vista