Falls du XE4 verwendest wird dir diese Lösung wahrscheinlich nicht helfen, da sie Generics und TStringHelper verwendet. Ich möchte sie der Vollständigkeit halber trotzdem posten.
Delphi-Quellcode:
procedure LoadGrid(grid: TStringGrid;
csv:
string);
var
lines, values : TArray<
string>;
begin
lines := TFile.ReadAllLines(
csv);
grid.RowCount := Length(lines);
for var i := 0
to High(lines)
do
begin
values := lines[i].Split(['
,']);
for var j := 0
to High(values)
do
begin
grid.Cells[j, i] := values[j];
end
end;
end;
Das Setzen von ColCount hab ich hier weggelassen, da die Anzahl an Spalten normalerweise vorher bekannt sein dürfte. Falls nicht, sollte sich der Code leicht anpassen lassen.