Wenn ich das so mache...
Delphi-Quellcode:
sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');
sCols := TStringList.Create;
sCols.Delimiter := ';';
sCols.StrictDelimiter := true; // falls leerzeichen ohne anführungszeichen...
sCols.DelimitedText := sRows[0];
FormCSV.StringGridCSV.ColCount := sCols.Count;
sCols.Free;
FormCSV.StringGridCSV.RowCount := sRows.Count;
for i := 0 to Pred(sRows.Count) do
FormCSV.StringGridCSV.Rows[i].DelimitedText := sRows[i];
sRows.Free;
... trennt der immer nocoh am Komma ...
Gruss
Holger