TList

Declaration

TList = class(TObject)

Description

Implements a list of pointers.

See Also

◼VCL TList Documentation
◼TIEList

Example

// Draw a multiple diagonal lines
var
  lines: TList;
  r: PRect;
  i: Integer;
begin
  lines := TList.Create();
  for i := 1 to 4 do
  begin
    New( r );
    r^.Left   := 100;
    r^.Top    := i * 50;
    r^.Right  := 200;
    r^.Bottom := i * 50 + 100;
    lines.Add( r );
  end;
  ImageEnView1.IEBitmap.IECanvas.DrawLines( lines, clRed, 2 );
  ImageEnView1.Update();
  for i := 0 to lines.Count - 1 do
    Dispose( PRect( lines[i] ));
  lines.Free();
end;

---