Code: Alles auswählen
with ListView1.Items.Add do
begin
SubItems.Delimiter := ',';
SubItems.StrictDelimiter := True;
SubItems.DelimitedText := CSVLine;
Caption := SubItems[0];
SubItems.Delete(0);
end;
csv_to_listview.zipCode: Alles auswählen
procedure TForm1.ReadCSVToListView(AFileName: String);
var
F: TextFile;
s: String;
sa: TStringArray;
listitem: TListItem;
i: Integer;
begin
// Neuzeichnen der ListView beim Hinzufügen von neuen Einträgen unterbinden.
// Das würde alles sehr verlangsamen (natürlich nur bei großen Dateien).
ListView1.Items.BeginUpdate;
AssignFile(F, FILE_NAME);
Reset(F);
// TListView hat Spalten nur im Viewstyle vsReport
ListView1.ViewStyle := vsReport;
// Feldnamen einlesen - die stehen in der 1. Zeile
// - Zeile einlesen
ReadLn(F, s);
// - In die einzelnen felder, die durch Komma getrennt sind, aufspalten
sa := s.Split(',');
// - Für jedes Feld eine Spalte erzeugen
for i:=0 to High(sa) do
with ListView1.Columns.Add do begin
Caption := sa[i];
Width := 150;
end;
// Nun den Rest der Datei einlesen
while not EoF(F) do begin
// - Aktuelle Zeile einlesen
ReadLn(F, s);
// - In die einzelnen Felder aufspalten
sa := s.Split(',');
// - ListItem für diesen Record erzeugen
listitem := ListView1.Items.Add;
// - Das 1.feld geht in die Caption des ListItem
listitem.Caption := sa[0];
// - Alle folgenden Felder gehen in die SubItems des ListItem
// Achtung: Nummerierung beginnt hier bei 1, weil 0 ja schon verwendet wurde!
for i := 1 to High(sa) do
listitem.SubItems.Add(sa[i]);
end;
// Neuzeichnen der Listview wieder aktivieren und anstoßen.
ListView1.Items.EndUpdate;
end;
Code: Alles auswählen
ListView1.Items.BeginUpdate;
try
...
finally
ListView1.Items.EndUpdate;
end;Was passiert, wenn in den Zeilen mehr Zellen vorhanden sind als im Header? Werden dann Zellinhalte in nicht vorhandene Subitems geschrieben?Code: Alles auswählen
for i := 1 to High(sa) do listitem.SubItems.Add(sa[i]); end;
Gibt es weniger Subitems als Colums werden die restlichen Colums leer gefüllt, ich denke mal wenn es mehr gibt wird alles was übersteht einfach ignoriert/nicht gezeichnet (habs aber nicht getestet und hängt natürlich auch vom WS ab)Timm Thaler hat geschrieben:Was passiert, wenn in den Zeilen mehr Zellen vorhanden sind als im Header? Werden dann Zellinhalte in nicht vorhandene Subitems geschrieben?
Kann ja vorkommen, dass eine CSV fehlerhaft ist.
Dafür ist CSV nicht gedacht. Ist es immer einzeilig oder gibt es auch einträge die Mehrzeilig sein können.Aphadias hat geschrieben:Danke erst mal.
Leider funktioniert es bei mir noch nicht so wie es soll. Meine ListView soll im Caption bereich nicht beschrieben werden. Dazu soll es nur die erste Spalte beschrieben werden und als Split habe ich "
Problem macht mir eigentlich nur die erste Spalte. Eigentlich verstehe ich die For-Schleife so das er dafür sorgt ein nach unten zu gehen. Aber er geht wohl immer nach rechts.
Zur meiner Listview. Die hat ca 17 Spalten aber nur die erste soll beschrieben werden.
oder liegt es an der csv Datei? Die sieht ca. so aus
Text Art; Wort Wort, Schrift, Text"
Text Art; Wort Wort, Schrift, Text"
Text Art; Wort Wort, Schrift, Text"
und so soll es in einer Spalte auch untereinander stehen
Code: Alles auswählen
var sl: TStringList;
s: string;
begin
sl:=TStringList.Create;
try
sl.LoadFromFile('csvFile');
sl.Delimiter = '"';
sl.StrictDelimiter := True;
sl.DelimitedText := sl.Text;
ListView1.BeginUpdate;
try
for s in sl do
with ListView1.Items.Add do
SubItems.Add(s.Trim);
finally
ListView1.EndUpdate;
end;
finally
sl.Free;
end;
end;Jetzt hast du mich komplett abgehängt: Wieso 17 Spalten, wenn du nur die erste beschreiben willst? Willst du jede Zeile der CSV-Datei unzerlegt komplett in der 1.Spalte anzeigen? Und du willst die Captions nicht beschreiben. Sollen die leer bleiben? Warum nimmst du dann überhaupt den vsReport Style der Listview und nicht vsList? Oder stehen da schon andere Informationen?Aphadias hat geschrieben:Zur meiner Listview. Die hat ca 17 Spalten aber nur die erste soll beschrieben werden.
Das ist keine CSV, das ist kunterbunter Müll. Und genauso wie beim Müll, den muss man von Hand aus zerlegen, damit man ihn recyclen kann.Aphadias hat geschrieben:oder liegt es an der csv Datei? Die sieht ca. so aus
Text Art; Wort Wort, Schrift, Text"
Text Art; Wort Wort, Schrift, Text"
Text Art; Wort Wort, Schrift, Text"
Ich versuche es mal bildlich zu erklären. Die ListView ist dazu da um Materialien in eine Datenbank zu speichern bzw auszulesen. Diese Materialien haben Chargen Abläufe Nummer usw... Sprich in der 1. Spalte kommt das Material 2. Spalte wieviel davon da sein soll 3. Wie viel da ist 4. Charge usw usw usw.. Die CSV Liste soll nur die Materialien enthalten. Sozusagen möchte ich das beim 1. Start der Nutzer die Materialien alle einlesen kann (aus der CSV-Liste) und danach zu jedem Material die Charge Datum usw einschreiben kann (weil es bei jedem Unterschiedlich ist). Deswegen soll nur die 1. Spalte aufgelistet werden weil der Name des Materials bei jedem gleich ist aber alle anderen Daten immer anders sind. Also eine Vorabmaske zur Arbeitserleichterung.wp_xyz hat geschrieben:Jetzt hast du mich komplett abgehängt: Wieso 17 Spalten, wenn du nur die erste beschreiben willst? Willst du jede Zeile der CSV-Datei unzerlegt komplett in der 1.Spalte anzeigen? Und du willst die Captions nicht beschreiben. Sollen die leer bleiben? Warum nimmst du dann überhaupt den vsReport Style der Listview und nicht vsList? Oder stehen da schon andere Informationen?Aphadias hat geschrieben:Zur meiner Listview. Die hat ca 17 Spalten aber nur die erste soll beschrieben werden.
Bitte mache eine vernünftige Beschreibung deines Problems, vielleicht eine Skizze dazu. So verstehe ich nur Bahnhof.
forum_listview.zip
Verein
Links
Suche