圖形顯示技巧,這是其中一段代碼
procedure TForm1.Button1Click(Sender: TObject)
var
newbmp:TBitmap
i,bmpheight,bmpwidth:integer //推拉
BEGIN
newbmp:=TBitmap.Create
newbmp.Width:=image1.Width
newbmp.Height:=image1.Height
bmpheight:=image1.Height
bmpwidth:=image1.Width
for i:=0 to bmpheight do
BEGIN
newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i))
form1.Canvas.Draw(120,100,newbmp)
end
newbmp.free
end
On Sunday, April 27, 2003, Fresno will celebrate Earth Day in downtown Fresno at Courthouse Park. The event will BEGIN at noon.
This year we will include music, speakers, and vendors, plus activities for children.
Fresno Earth Day is recognized as the only Earth Day festival that happens in Fresno, and the largest in the Central Valley.
The Fresno Earth Day Committee is a small group of environmental activists hoping to broaden the appeal of a better planet and environment. We are a non-profit organization whose fiscal fiduciary is the Fresno Center for Nonviolence.
This document is designed to aid anyone considering whether to write an
emulator for an arcade game machine. It will attempt to answer frequently
asked questions, give a step by step tutorial, and provide the resources
necessary for a capable programmer to BEGIN work on an emulator for an
arcade game.
詞法分析器的實現，1） 輸入:字符串(待進行詞法分析的源程序),輸出:由(種別碼,自身值)所組成的二元組序列。
2） 功能:
a. 濾空格
b. 識別保留字
c. 識別標識符
d. 拼數
e. 拼復合單詞: 例如： >=、 <=、 :=
3） 檢查如下錯誤：
a. 程序語言的字符集以外的非法字符
b. 單詞拼錯,如9A88,而對于將BEGIN拼寫成begon的錯誤,只須把begon當成標識符即可
MD5變換動態鏈接庫文件調用：（delphi例子）
=========================================================================
function transfer(tran:widestring):widestring stdcall external md5.dll name transfer
//edit1為輸入字符，edit2為輸出md5摘要
procedure TForm1.Button1Click(Sender: TObject)
BEGIN
edit2.text:=transfer(edit1.Text)
end
