2012-03-02 90 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