TAdvStringGrid

[DeddyH]

Das meinte ich. Ich habe kein AdvStringGrid, aber ungefähr so sollte es gehen:

Delphi-Quellcode:

for i := ADVStringGrid1.FixedRows to ADVStringGrid1.RowCount - 1 do
  begin
    s := ADVStringGrid1.Cells[7, i];
    ADOCommand.Parameters.ParamByName('param').Value := s;
    ADOCommand.Execute;
  end;