Hi Luckie,
vielen Dank für den Quelltext! War schon immer zu faul für sowas
!
Mein D7pe kennt die Zeile (in TfrmMain.FillListview) mit
Delimitedline.StrictDelimiter := True;
nicht und mag die Zeile für das automatische Spaltenbreitensetzen mit
lvCSVFile.Columns.Items[j].Width := ColumnTextWidth;
nicht (Absturz mit "Listenindex überschreitet das Maximum (x)").
Abhilfe: Beide Zeilen (in TfrmMain.FillListview) auskommentieren und nach
Progressbar1.Position := 0;
die Zeile
for i:=0 to lvCSVFile.Columns.count -1 do lvCSVFile.Columns[i].width:= -1;
einfügen.
MfG