国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設計 > 正文

TList的用法

2019-11-17 05:41:07
字體：大 中 小
來源：轉載
供稿：網(wǎng)友
　　TList是一個很好的東東，有了它我們不再去費盡心思地寫什么列表類，直接用它就行了，下面的例子示范了怎樣建立一個TList并插入兩條記錄，這些記錄將輸出在PaintBox上。

C++ Builder
請參照Delphi的例子

Delphi

PRocedure TForm1.FormButton1Click(Sender: TObject);

type

PMyList = ^AList;

AList = record

I: Integer;

C: Char;

end;

var

MyList: TList;

ARecord: PMyList;

B: Byte;

Y: Word;

begin

MyList := TList.Create;

New(ARecord);

ARecord^.I := 100;

ARecord^.C := Z;

MyList.Add(ARecord); //加入一個100的整數(shù)和Z字符

New(ARecord);

ARecord^.I := 200;

ARecord^.C := X;

MyList.Add(ARecord); //加入一個200的整數(shù)和X字符

Y := 10;

for B := 0 to (MyList.Count - 1) do

begin

ARecord := MyList.Items[B];

Canvas.TextOut(10, Y, IntToStr(ARecord^.I));

Y := Y + 30;

Canvas.TextOut(10, Y, ARecord^.C);

Y := Y + 30;

end;

for B := 0 to (MyList.Count - 1) do

begin

ARecord := MyList.Items[B];

Dispose(ARecord);

end;

MyList.Free;

end;

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 阳朔县| 民丰县| 富民县| 仁布县| 拉萨市| 榆中县| 怀柔区| 柯坪县| 白朗县| 余江县| 方山县| 萨迦县| 富顺县| 鄂托克前旗| 会泽县| 晋江市| 云林县| 固始县| 斗六市| 右玉县| 湘阴县| 吴堡县| 山西省| 建瓯市| 咸宁市| 黄龙县| 仲巴县| 海原县| 达尔| 建水县| 巴塘县| 班戈县| 井冈山市| 镇江市| 二连浩特市| 深泽县| 浦北县| 阿荣旗| 罗源县| 锦屏县| 伊金霍洛旗|