Kod:
procedure LoadFromFile(sg: TStringGrid; csv: TFileName);
var
sRows, sCols: TStrings;
i: Integer;
begin
sRows := TStringList.Create;
sRows.LoadFromFile(csv);
sCols := TStringList.Create;
sCols.CommaText := sRows[0];
sG.ColCount := sCols.Count;
sCols.Free;
SG.RowCount := sRows.Count;
for i := 0 to Pred(sRows.Count) do
SG.Rows[i].CommaText := sRows[i];
sRows.Free;
end;
procedure TDemoForm.LoadButtonClick(Sender: TObject);
begin
LoadFromFile(SG, 'C:\\daten\\messdaten.csv');
end;
