[Kaf_Dağı]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;