1:
2:
3:

DS.FieldbyName ('blabla-Feld').AsInteger := stringgrid.cells [ACol,ARow];
... weitere Felder
DS.Insert;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

//Hilfsfunktion
Function DBEmpty(dts : TDataSet) : Boolean;
begin
  Result := not dts.Active;
  if not Result then begin
    Result := dts.eof and dts.bof;
  end;
end;

// Kopier-Prozedur
procedure KopiereDatensatz(qQuelle, qZiel : TDataset);
var
  cnt : Integer;
  arr : array of variant;
begin
  if not DBEmpty(qQuelle) then begin
    SetLength(arr, qQuelle.FieldCount);
    for cnt := 0 to qQuelle.FieldCount - 1 do begin
      arr[cnt] := qQuelle.Fields[cnt].AsVariant;
    end;

    qZiel.Append;
    for cnt := 0 to qZiel.FieldCount - 1 do begin
      qZiel.Fields[cnt].AsVariant := arr[cnt];
    end;
    qZiel.Post;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure Tform1.Kopiere;
var
  zeile, spalte : integer;
begin
  for zeile := 0 to stringgrid1.rowcount-1 do
  begin
    table1.append;
    for spalte := 0 to stringrid1.colcount-1 do
    begin
      table1.fields[spalte].asstring := stringgrid1.cells[spalte,zeile];
    end;
    table1.post;
  end;
end;					

1:
2:
3:
4:
5:

for i := 1 to RowCount do begin
  DS.FieldbyName ('blabla-Feld').AsInteger := stringgrid.cells ["gewünschte Spalte",i];  
... weitere Felder   
  DS.Insert; 
end;					

1:
2:

for i := Stringgrid.FixedRows to Stringgrid.Rowcount-1 do 
bla bla					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TFormUpdaten.BitBtn1Click(Sender: TObject);
var
        i : integer;
begin
  DataModul.TableOnUp.Insert;
for i := 0 to StringGrid2.RowCount-1 do begin
  DataModul.TableOnUp.FieldbyName ('Titel').AsString := StringGrid2.cells [2,i];
  DataModul.TableOnUp.FieldbyName ('Land').AsString := StringGrid2.cells [3,i];
end;
  DataModul.TableOnUp.Post;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TFormUpdaten.BitBtn1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to StringGrid2.RowCount-1 do begin
    DataModul.TableOnUp.Insert;
    DataModul.TableOnUp.FieldbyName ('Titel').AsString := StringGrid2.cells [2,i];
    DataModul.TableOnUp.FieldbyName ('Land').AsString := StringGrid2.cells [3,i];
    DataModul.TableOnUp.Post;
  end;
end;