ListView en modo virtual
Hola amigos, alguien sabe porque al rellenar el ListView en el evento ListView1Data como muestro a cuntinuacion me incrementa los numeros de una variable integer de dos en dos.?
var
Form16: TForm16;
i : integer;
implementation
procedure TForm16.FormCreate(Sender: TObject);
begin
ListView1.OwnerData:=True;
ListView1.Items.Count:=100;
procedure TForm16.ListView1Data(Sender: TObject; Item: TListItem);
begin
inc(i);
Item.Caption:=IntToStr(i);
end;
|