Stringgrid seçili sütunları aktarma

[cvheneburi]

Merhabalar, excel dosyasından stringgrid e verilerimi alıyorum. Stringgriddeki verilerin tamamını değil de kullanıcının seçmiş olduğu sütunlardaki verileri veritabanına aktarmasını nasıl yaparım

[delphiman]

(23-09-2022, Saat: 00:03)cvheneburi Adlı Kullanıcıdan Alıntı: Merhabalar, excel dosyasından stringgrid e verilerimi alıyorum. Stringgriddeki verilerin tamamını değil de kullanıcının seçmiş olduğu sütunlardaki verileri veritabanına aktarmasını nasıl yaparım

procedure TransferSelectedColumnsToDatabase(StringGrid: TStringGrid; Database: TDatabase; SelectedColumns: array of Integer);
var
 i, j: Integer;
 SQL: string;
begin
 Database.StartTransaction;
 try
   for i := 1 to StringGrid.RowCount - 1 do
   begin
     SQL := 'INSERT INTO YourTable (';
     for j := Low(SelectedColumns) to High(SelectedColumns) do
     begin
       SQL := SQL + StringGrid.Cells[SelectedColumns[j], 0];
       if j < High(SelectedColumns) then
         SQL := SQL + ', ';
     end;
     SQL := SQL + ') VALUES (';
     for j := Low(SelectedColumns) to High(SelectedColumns) do
     begin
       SQL := SQL + QuotedStr(StringGrid.Cells[SelectedColumns[j], i]);
       if j < High(SelectedColumns) then
         SQL := SQL + ', ';
     end;
     SQL := SQL + ');';
     Database.Execute(SQL);
   end;
   Database.Commit;
 except
   Database.Rollback;
   raise;
 end;
end;