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