Zu viele Einträge? Listview?

[Sharky]

Jup. Ist schon wichtig!
Es ist also ein dynamisches Array. Dann musst Du bei der Länge 1 abziehen!

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 Pred (Count) do begin  // Hier ist die Änderung!
    ListItem:= ListView1.Items.Add;
    ListItem.Caption:= Files[i].Filename;
    ListItem.SubItems.Add('');
    ListItem.SubItems.Add(IntToHex(Files[i].Offset, 2));
  end;
end;

[Edit] Andreas war wieder schnelle [/edit]