CSVViewer - Zum Betrachten von CSV-Dateien

[Luckie]

Nichts großes, weltbewegendes. Nur ein kleines Programm, um CSV-Dateien betrachten zu können, ohne dass man immer gleich Excel oder OpenOffice starten muss. So was wollte ich schon immer mal für die Backupdateien meiner Adressdatenbank machen und jetzt habe ich es gemacht. Es war eigentlich nur für mich zu privat Zwecken gedacht, aber eventuell findet es ja noch jemand anders nützlich, wenn nicht das Programm, dann vielleicht den Code, obwohl auch dieser war in seiner Grundform in zwanzig Minuten hingehackt.

Das Programm sollte selbsterklärend sein. Mit einem Rechtsklick auf den Listview öffnet sich ein Kontextmenü, mit dem man entweder die eine Zelle/Feld in die Zwischenablage kopieren kann oder die ganze Zeile.

[vergessen]

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

[Luckie]

Entwickelt hab eich mit D2006. Und ColumnTextWidth ist nur eine Konstante für -1.

[vergessen]

lvCSVFile.Columns.Items[j].Width := -1; statt
lvCSVFile.Columns.Items[j].Width := ColumnTextWidth; führt in D7pe zum gleichen Absturz

MfG

[mkinzler]

Es ist ja auch egal, ob man eine Konstante niummt oder den Wert direkt zuweist.

[Luckie]

Jetzt stellt sich die Frage, warum das bei mir nicht zum Absturz führt. Ist deine CSV-Datei eventuell nicht in Ordnung oder so?