欢迎来到天天文库
浏览记录
ID:15435325
大小:55.50 KB
页数:8页
时间:2018-08-03
《delphi编程从入门到精通 04(共4册)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、附錄EDelphi4增訂的ObjectPascal附錄EDelphi4增訂的ObjectPascal本附錄在於說明Delphi4新增訂的ObjectPascal程式語言。總結來說,Delphi4的ObjectPascal增訂了以下幾大部分除最後一項屬於Win32進階篇的內容之外,以本附錄補充說明第二、三章。:o新增加數種內定資料型態。oDynamicArraysoMethodandRoutineOverloadingoDefaultParameters.oImplementatinginterfacesbydelega
2、tion,可用以下的寫法:propertyMyInterface:IMyInterfacereadFMyInterfaceimplementsIMyInterface;新增的內定資料型態整數方面:o新增加Int64這種長度六十四位元,範圍從-2^63to2^63–1。o32-bitunsignedinteger新增加Longword型態,範圍從0..4294967295。691附錄EDelphi4增訂的ObjectPascaloCardinal的範圍調整成與上述Longword型態相同。浮點數方面:oReal型態基於效
3、率考量,由過去佔用48-bit調整成64-bits,o新增加Real48型態,精確度與過去的Real相同,仍是48-bit。DynamicArrayDelphi4問世之前,Delphi程式設計師若需要動態長度的陣列,在不得已的情況下,往往採用以下這種「表面上陣列的語法,但實際自己配置管理記憶體」的方式來處理動態陣列:#0001procedureTForm1.Button1Click(Sender:TObject);#0002type#0003TIntegerArray=array[0..0]ofinteger;#000
4、4PIntegerArray=^TIntegerArray;#0005var#0006pArrayOfInteger:PIntegerArray;#0007j:integer;#0008begin#0009GetMem(pArrayOfInteger,10*SizeOf(Integer));#0010forj:=0to9do#0011pArrayOfInteger^[j]:=j;#0012FreeMem(pArrayOfInteger,10*SizeOf(Integer));#0013end;如果應用Delphi4新增
5、加的DynamicArray,則可改用以下的方式:varMyFlexibleArray:arrayofReal;定義之後,以SetLength函數改變陣列實際配置的記憶體大小,例如:SetLength(MyFlexibleArray,20);//0..19方便很多,是嗎?若想知道DynamicArray實際長度,請分別以High與Low函數判斷,傳回「-1」時,表示是一個該陣列的長度為零,例如:691附錄EDelphi4增訂的ObjectPascal#0001procedureTForm1.Button2Click(S
6、ender:TObject);#0002var#0003A:arrayofInteger;#0004begin#0005ShowMessage(IntToStr(High(A)));//-1#0006SetLength(A,3);#0007ShowMessage(IntToStr(High(A)));//3#0008A:=nil;#0009ShowMessage(IntToStr(High(A)));//-1#0010end;上述的0008這列,指定nil值將會釋放陣列所配置到的記憶體。值得注意的是,Compiler對
7、於DynamicArray並不會自動進行所謂的「Copy-on-Write」。請看以下的程式例:#0001procedureTForm1.Button1Click(Sender:TObject);#0002var#0003A,B:arrayofInteger;#0004begin#0005SetLength(A,1);#0006A[0]:=1;#0007B:=A;#0008B[0]:=2;#0009ShowMessage(IntToStr(A[0]));//==>2#0010end;0008這列改的雖是B[0],但Co
8、mpiler顯然還沒有聰明到在可能修改陣列內容時,將陣列內容複製一份出來(Copyon(possible)Write),於是,0009這列程式顯示的結果仍是2。於是,若要進行兩陣列各索引項目一對一的內容複製,只好自行寫迴圈一一複製,或者,採用較為簡便的寫法──呼叫Copy函數:#0001procedureTForm1.Button
此文档下载收益归作者所有