TList的用法

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的整数和Z字符 New(ARecord); ARecord^.I := 200; ARecord^.C := X; MyList.Add(ARecord); //加入一个200的整数和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; . 。 ..