нет, beginupdate/endupdate не спасает

наборы полезны далеко не только при работе с базой, но с любыми данными. всё пишется вообще в пару кликов и имеешь всю готовую мощь наборов

а так вот - возня только

+++

+++

у меня из файла грузятся данные, они разбиваются на разные структуры. в данном случае используется одна такая структура. Да, для неё из базы (если она подключена) читаются данные-названия для кодовых исходников.  удаление идёт только в таблице, покуда я вручную не нажму кнопку "Update". тогда данные запишутся в структуру в памяти, и только при сохранении файла вручную они уже сохранятся на диске...

вот - выбросить все структуры и оставить набор

мне не надо усложнений. А в данном случае пришлось остановиться на следующем решении:

procedure TfmRecipes.sgRecipesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  i,lcnt:integer;
  ar:array of integer;
begin
  if (Key=VK_DELETE) then
  begin
    // 1 - calc lines amount
    lcnt:=0;
    ar:=nil;
    for i:=sgRecipes.RowCount-1 downto 1 do
      if sgRecipes.IsCellSelected[colTitle,i] then
         inc(lcnt);
    SetLength(ar,lcnt);
    // 2 - create numbers list
    lcnt:=0;
    for i:=sgRecipes.RowCount-1 downto 1 do
    begin
      if sgRecipes.IsCellSelected[colTitle,i] then
      begin
        ar[lcnt]:=i;
        inc(lcnt);
      end;
    end;
    // 3 - delete rows
    for i:=0 to lcnt-1 do
      sgRecipes.DeleteRow(ar[i]);
    SetLength(ar,0);
  end;
end;

это не усложнение, а упрощение. но ты, конечно, можешь считать по-другому

у меня savegame файлы с кучей разных структур внутри. И не факт, что будет какая-то база подключена. ЗАЧЕМ мне усложнять всё?

ок. значит только там, где работа с гридом нужна. и перейти на дбгид

procedure TfmRecipes.sgRecipesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  i,lcnt:integer;
  ar:array of integer;
begin
  if (Key=VK_DELETE) then
  begin
    // 1 - calc lines amount
    lcnt:=0;
    ar:=nil;
    for i:=sgRecipes.RowCount-1 downto 1 do
      if sgRecipes.IsCellSelected[colTitle,i] then
         inc(lcnt);
    SetLength(ar,lcnt);
    // 2 - create numbers list
    lcnt:=0;
    for i:=sgRecipes.RowCount-1 downto 1 do
    begin
      if sgRecipes.IsCellSelected[colTitle,i] then
      begin
        ar[lcnt]:=i;
        inc(lcnt);
      end;
    end;
    // 3 - delete rows
    for i:=0 to lcnt-1 do
      sgRecipes.DeleteRow(ar[i]);
    SetLength(ar,0);
  end;
end;

Вот это, по-твоему, "упрощение"?

да не нужен мне дбгрид!

+. на наборе это в пару строк делается

это костыль из-за того, что в гриде не реализовано нормальное удаление выделенных строк. но его код настолько примитивен, что не страшно

ну ок, 'упрощай' тогда :)

1 - я не работаю с наборами.
2 - пока я разберусь стем, что это из себя представляет, я прокляну все паскаль-компиляторы (и советчиков) не раз
3 - потом мне придется разбираться с глюками уже в этих наборах
4 - они слишком жирные и тормозные

ой, всё :)

мне приходится рассчитывать даже на тормозные компы с небольшим относительно объёмом памяти

как ты себе представляешь твой набор?