Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Taxip
13 / 13 / 11
Регистрация: 28.09.2013
Сообщений: 364
#1

Удаление строки из StringGrid

06.05.2014, 08:07. Просмотров 288. Ответов 1
Метки нет (Все метки)

Здравствуйте. Необходимо, чтобы удалить одну строку из таблицы. Делаю это примерно так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.strngrd1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if ARow=TStringGrid(Sender).Row then
      row_n:=strngrd1.Row;
end;
 
procedure TForm1.N5Click(Sender: TObject);
var n: Integer;
begin
  for n:=row_n to  Form1.strngrd1.RowCount-1 do
    if n<Form1.strngrd1.RowCount then
      begin
       form1.strngrd1.Cells[0, n]:= form1.strngrd1.Cells[0, n+1];
       form1.strngrd1.Cells[1, n]:= form1.strngrd1.Cells[1, n+1];
       form1.strngrd1.Cells[2, n]:= form1.strngrd1.Cells[2, n+1];
      end;
   Form1.strngrd1.RowCount:=Form1.strngrd1.RowCount-1;
end;
Но при выборе последней строки, все элементы просто смещаются на одну позицию в верх, а первая строка удаляется. В чем проблема?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2014, 08:07
Ответы с готовыми решениями:

Удаление строки в StringGrid
Подскажите как сделать! Имею пару записей в StringGrid и нужно удалить строку,...

Удаление строки из StringGrid
Подскажите такую вешь, как реализовать чтобы вводишь в едит1 значение по...

Удаление строки из stringgrid
Задача состоит в удалении строки, в которой есть элемент кратный трем. Вот,...

Удаление строки в StringGrid
Доброго времени суток, хотел узнать возможно ли удалить нужную строку в...

Корректное удаление строки из StringGrid
Всем привет! Такие дела. Проблема в том что не могу реализовать корректное...

1
FIL
Модератор
3416 / 2552 / 726
Регистрация: 19.09.2012
Сообщений: 7,922
06.05.2014, 09:57 #2
Пример удаления сроки Грида:
Delphi
1
2
3
4
5
6
7
8
9
10
var
  i: Integer;
begin
  with StringGrid1 do
  begin
    for i := Row + 1 to RowCount - 1 do
      Rows[i-1] := Rows[i];
    RowCount := RowCount - 1;
  end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2014, 09:57

Удаление выбранной строки в StringGrid
procedure TForm2.SpeedButton1Click(Sender: TObject); var position:integer;...

Удаление строки базы данных в Stringgrid
Здравствуйте господа! Возник следующий вопрос, как удалить строку в Stringgrid,...

Удаление строки из типизированного файла в StringGrid-е
Здравствуйте. Подскажите пожалуйста, где ошибка... Процедура должна удалить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru