程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi2009初體驗 - 語言篇 - 體驗泛型(一)(4)

Delphi2009初體驗 - 語言篇 - 體驗泛型(一)(4)

編輯:Delphi

控制台程序代碼:

1program TestTObjectList;
2
3{$APPTYPE CONSOLE}
4
5uses
6  SysUtils,
7  Contnrs,
8  Generics.Collections,
9  Felix in 'Felix.pas';
10
11var
12  objList: TObjectList<TFelix>;
13  oldObjList: TObjectList;
14  n: Integer;
15  felix: TFelix;
16  pFelix: Pointer;
17begin
18  // 以下代碼測試舊對象集合
19  Writeln('TObjectList start');
20
21  oldObjList := TObjectList.Create; // 1*
22  for n := 0 to 2 do
23  begin
24    oldObjList.Add(TFelix.Create);
25  end;
26
27  for pFelix in oldObjList do
28  begin
29    Writeln(TFelix(pFelix).Id);
30  end;
31
32  FreeAndNil(oldObjList);
33
34  // 以下代碼測試泛型對象集合
35  Writeln(#13 + #10 + 'TObjectList<T> start');
36
37  objList := TObjectList<TFelix>.Create; // 2*
38  for n := 0 to 2 do
39  begin
40    objList.Add(TFelix.Create);
41  end;
42
43  for felix in objList do
44  begin
45    Writeln(felix.Id);
46  end;
47
48  FreeAndNil(objList);
49
50  // ----------------------------------------------------------
51  Writeln('press any key');
52  Readln;
53end.

圖3

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved