TListView ... sehr viele Einträge

[stoxx]

probier mal das:

Code:

var oldViewStyle : TViewStyle;

begin

    oldViewStyle := lv.ViewStyle;
    lv.ViewStyle := vsList;

    lv.Items.BeginUpdate;
    lv.Items.Clear;

    try
     ListViewLoadFromFile(lv, pfad);
    except
     MessageDlg('Keine Original LV Datei !', mtWarning, [mbOK], 0);
    end;

    lv.Items.EndUpdate;
    lv.ViewStyle := oldViewStyle;

end;