Zu viele Einträge? Listview?

[DelphiFreund]

Er ist noch unfertig:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Count: Integer;
  ListItem: TListItem;
  Exception: Boolean;
begin
  if not FileExists(Edit1.Text) then Exit;
  ReadIndexFile(Edit1.Text, Exception);
  Count:= Length(Files);
  if Count = 0 then Exit;
  ListView1.Clear;
  for i:= 0 to Count do begin
    ListItem:= ListView1.Items.Add;
    ListItem.Caption:= Files[i].Filename;
    ListItem.SubItems.Add('');
    ListItem.SubItems.Add(IntToHex(Files[i].Offset, 2));
  end;
end;