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