ListView en modo virtual

[byfali]

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;

[Mick]

--------------------

[Mick]

El evento se llama cuando cualquier item tiene que redibujarse en pantalla, asi que no puedes asignar los valores a los items dentro de ese evento, confiando en que se llame solo una vez por elemento y que ademas se llamen en el orden correcto.

Por ejemplo si el listview estuviese "medio" tapado por algun otro control o ventana verias que el evento solo seria llamado para aquellos elementos "visibles".

Mejor iinicializa todos los elementos del listview con un bucle en el oncreate del form por ejemplo.

Saludos

[byfali]

Gracias por tu respuesta Nick

Lo que intento es llenar el ListView con los bytes de un archivo y este metodo es el mas rapido cuando el archivo es muy grande.
El problema es lo que he comentado antes, me muestra los bytes de dos en dos.
Ejemplo:

BYTES (BIEN) BYTES (EN LISTVIEW)
------------- ---------------------
125 125
200 254
254 14
95 100
14
36
100

La muestra de codigo anterior era para simplificar. Adjunto parte de lo que tengo hecho.

procedure TForm16.ListView1Data(Sender: TObject; Item: TListItem);
var
byte:Integer;
begin

byte:= LeerByte;
Item.Caption:=IntToStr(byte);

end;

LeerByte es una funcion que lee los bytes del archivo.