CSV-Datei die mit Semikolons getrennt ist einlesen

[CCRDude]

Weil der Delimiter und StrictDelimiter für alle FormCSV.StringGridCSV.Rows[i] wahrscheinlich nicht gesetzt sind?

PS: Nach da drüber: soll doch ';' und nicht ',' sein ;-)

[HolgerCW]

Habe nun die Lösung:

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');

sCols := TStringList.Create;
sCols.DelimitedText := sRows[0];

FormCSV.StringGridCSV.ColCount:=sCols.Count;
sCols.Free;

FormCSV.StringGridCSV.RowCount := sRows.Count;

for i := 0 to Pred(sRows.Count) do 
begin
 FormCSV.StringGridCSV.Rows[i].Delimiter := ';'; 
 FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sRows[i];
end;
sRows.Free;

Habe da noch ein abschliessende Frage:

- Wie kann ich die Daten aus der CSV-Datei von Spalte 1 bis ... in das StringGrid schreiben. Heisst: Spalte 0 soll leer bleiben.

Gruss

Holger

[CCRDude]

Probieren geht über studieren ;)
Spiel doch einfach mal ein bißchen mit TStrings/TStringList rum, um zu wissen was das macht und wie es geht. Folgendes Beispielsweise würde eine leere erste Spalte schreiben (nicht die eleganteste Methode, aber evtl. die mit den wenigsten Abweichungen):

Delphi-Quellcode:

// sCols.Free;  streichen!
for i := 0 to Pred(sRows.Count) do begin
   FormCSV.StringGridCSV.Rows[i].Delimiter := ';';
   FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
   sCols.DelimitedText := sRows[i];
   sCols.Insert(0, '');
   FormCSV.StringGridCSV.Rows[i].DelimitedText := sCols.DelimitedText;
end;
sCols.Free;  // stattdessen hier!
sRows.Free;

[HolgerCW]

Hi,

die Spalte wird wohl eingefügt, nur fehlt nun wieder die Trennung beim Semikolon. Es wird wieder beim Komma getrennt.

So habe ich es umgebaut:

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');

sCols := TStringList.Create;
sCols.DelimitedText := sRows[0];

FormCSV.StringGridCSV.ColCount:= sCols.Count;
FormCSV.StringGridCSV.RowCount := sRows.Count;

for i := 0 to Pred(sRows.Count) do 
begin
 FormCSV.StringGridCSV.Rows[i].Delimiter := ';';
 FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
 sCols.DelimitedText := sRows[i];
 sCols.Insert(0, '');
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sCols.DelimitedText;
end;
sRows.Free;
sCols.Free;

Gruss

Holger