Недавно добавленные исходники
• Animation Loaders 957 • DeLiKaTeS Tetris (Тетрис) 5 896 • TDictionary Custom Sort 7 848 • Fast Watermark Sources 7 517 • 3D Designer 10 746 • Sik Screen Capture 8 074 • Patch Maker 8 276 • Айболит (remote control) 8 322 • ListBox Drag & Drop 7 159 • Доска для игры Реверси 101 079 • Графические эффекты 8 392 • Рисование по маске 7 767 • Перетаскивание изображений 6 361 • Canvas Drawing 6 738 • Рисование Луны 6 667 • Поворот изображения 5 798 • Рисование стержней 4 740 • Paint on Shape 3 442 • Генератор кроссвордов 4 432 • Головоломка Paletto 3 576 • Теорема Монжа об окружностях 4 375 • Пазл Numbrix 2 833 • Заборы и коммивояжеры 3 786 • Игра HIP 2 551 • Игра Go (Го) 2 558 • Симулятор лифта 2 948 • Программа укладки плитки 2 372 • Генератор лабиринта 3 124 • Проверка числового ввода 2 607 • HEX View 3 013

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Как удалить выделенную запись из TStringGrid

Автор: MBo

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j: Integer;
begin
  j:=SG1.Row; // строка с выделением
  SG1.Rows[j].Clear;
  for i:=j to SG1.RowCount-2 do
    SG1.Rows[i].Assign(SG1.Rows[i+1]);
  SG1.RowCount:=SG1.RowCount-1;
end;

Как удалить выделенную запись из TStringGrid

Похожие по теме исходники